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Only major symbols are given in the following lists. 


AE, AW, AN, 
AS, AP, Sp, Ax Coefficients in Discretised Equations 


B Body Force (N/kg) or Spalding Number 
C, Constant-Pressure Specific Heat (J/kg-K) 
C, Constant- Volume Specific Heat (J/kg-K) 
D Mass Diffusivity (m/s) 
e Turbulent Kinetic Energy or Internal Energy (J/kg) 
f Fanning Friction Factor Based on Hydraulic Diameter 
Gr Grashof Number 
h Enthalpy (J/kg) or Heat Transfer Coefficient (W/m?-K) 
k Thermal Conductivity (W/m-K) 
M Molecular Weight or Mach Number 
Nu Nusselt Number 
P Peclet Number 
Р, Cell Peclet Number 
Pr Prandtl Number 
р Pressure (N/m?) 
q Heat Flux (W/m?) 
q", QU Internal Heat Generation Rates (W/m?) 
R Residual or Gas Constant (J/kg-mol-K) 
Re Reynolds Number 
S, Su Source Term 
Sc Schmidt Number 
St Stanton or Stefan Number 
T Temperature (°C or K) 
Time (s) 
u,v, W x-, y-, z-Direction Velocities (m/s) 
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NOMENCLATURE 


ui Velocity in x;,i = 1, 2, 3 Direction 
V Volume (m?) 
Greek Symbols 


a Under relaxation Factor or Thermal Diffusivity (m?/s) 
8 Under relaxation Factor for Pressure ог 
Coefficient of Volume Expansion (K7!) 


ó Boundary Layer Thickness (m) 
А Incremental Value 
€ Turbulent Energy Dissipation Rate (m?/s?) 
ф Stream Function or Weighting Factor 
o General Variable or Dimensionless Enthalpy 
Г General Exchange Coefficient = u, oD, ork/Cp 
K Constant in the Logarithmic Law of the Wall 
ш Dynamic viscosity (N-s/m?) 
v Kinematic Viscosity (m?/s) 
w Species Mass Fraction or Dimensionless Coordinate 
p Density (kg/m?) 
2 Second Viscosity Coefficient or Latent Heat (J/kg) 
А Multiplier of p — p 
с Normal Stress (N/m?) 
Ө Dimensionless Temperature 
Shear Stress (N/m?) or Dimensionless Time 
Subscripts 
P, N, S,E,W Refers to Grid Nodes 
п, S, €, W Refers to Cell Faces 
eff Refers to Effective Value 
f Refers to Cell Face 
1 Liquid or Liquidus 
m Refers to Mass Conservation, Mixture, or Melting Point 
5 Solid or Solidus 
sm Refers to Smoothing 
sup Superheated 
T Transferred Substance State 
Xi Refers to x;, i = 1, 2, 3 directions 


Superscripts 


l Iteration Counter 
0 Old Time 
u,v Refers to Momentum Equations 


NOMENCLATURE ху 


— Multidimensional Average 


á Correction 

Acronyms 

ID One-Dimensional 

2D Two-Dimensional 

3D Three-Dimensional 

ADI Alternating Direction Implicit 

CDS Central Difference Scheme 

CFD Computational Fluid Dynamics 

СС Conjugate Gradient Method 

CONDIF Controlled Numerical Diffusion with Internal Feedback 
DNS Direct Numerical Simulation 

GMRES Generalised Minimal Residual Method 

GS Gauss-Seidel Method 

HDS Hybrid Difference Scheme 

HRE High Reynolds Number Model 

IOCV Integration over a Control Volume Method 
LHS Left-Hand Side 

LRE Low Reynolds Number Model 

LU Lower-Upper Decomposition 

ODE Ordinary Differential Equation 

PDE Partial Differential Equation 

POWER Power-Law Scheme 

RHS Right-Hand Side 

SIMPLE Semi-Implicit Method for Pressure Linked Equations 
TDMA Tridiagonal Matrix Algorithm 

TSE Taylor Series Expansion Method 

TVD Total Variation Diminishing 


UDS Upwind Difference Scheme 


Preface 


During the last three decades, computational fluid dynamics (CFD) has emerged as 
an important element in professional engineering practice, cutting across several 
branches of engineering disciplines. This may be viewed as a logical outcome 
of the recognition in the 1950s that undergraduate curricula in engineering must 
increasingly be based on engineering science. Thus, in mechanical engineering 
curricula, for example, the subjects of fluid mechanics, thermodynamics, and heat 
transfer assumed prominence. 

I began my teaching career in the early 1970s, having just completed a Ph.D. de- 
gree that involved solution of partial differential equations governing fluid motion 
and energy transfer in a particular situation (an activity not called CFD back then!). 
After a few years of teaching undergraduate courses on heat transfer and postgrad- 
uate courses on convective heat and mass transfer, I increasingly shared the feeling 
with the students that, although the excellent textbooks in these subjects empha- 
sised application of fundamental laws of motion and energy, the problem-solving 
part required largely varied mathematical tricks that changed from one situation to 
another. I felt that teachers and students needed a chance to study relatively more 
real situations and an opportunity to concentrate on the physics of the subject. In 
my reckoning, the subject of CFD embodies precisely this scope and more. 

The introduction ofa five-year dual degree (B.Tech. and M.Tech.) program at IIT 
Bombay in 1996 provided an opportunity to bring new elements into the curriculum. 
I took this opportunity to introduce a course on computational fluid dynamics and 
heat transfer (CFDHT) in our department as a compulsory course in the fourth 
year for students of the thermal and fluids engineering stream. The course, with an 
associated CFDHT laboratory, has emphasised relearning fluid mechanics and heat 
and mass transfer through obtaining numerical solutions. This, of course, contrasts 
with the analytical solutions learnt in earlier years ofthe program. Through teaching 
of this CFDHT course, I discovered that this relearning required attitudinal change 
on the part of the student. Thus, for example, the idea that a// 1D conduction 
problems (steady or unsteady, in Cartesian, cylindrical, or spherical coordinates, 
with constant or variable properties, with or without area change, with or without 
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internal heat generation, and with linear or nonlinear boundary conditions) in a 
typical undergraduate textbook can be solved by a single computer program based 
on a single method is found by the students to be new. Similarly, the idea that 
a numerical instability in an unsteady conduction problem essentially represents 
violation of the second law of thermodynamics is found to be new because no book 
on numerical analysis treats it as such. Nothing encourages a teacher to write a book 
more than the discomfort expressed by the students. At the same time, it must be 
mentioned that when a student succeeds in writing a generalised computer program 
for 1D conduction in the laboratory part of the course through struggles of where 
and how do I begin, of debugging, of comparing numerical results with analytical 
results, of studying effects of parametric variations, and of plotting of results, the 
computational activity is found to be both enlightening and entertaining. 

I specifically mention these observations because, although there are a number 
of books bearing the words Computational Fluid Dynamics in their titles, most em- 
phasise numerical analysis (a branch of applied mathematics). Also, most books, it 
would appear, are written for researchers and cover a rather extended ground but are 
usually devoid of exercises for student learning. In my reckoning, the most notable 
exception to such a state of affairs 1s the pioneering book Numerical Heat Trans- 
fer and Fluid Flow written by Professor Suhas V. Patankar. The book emphasises 
control-volume discretisation (the main early step to obtaining numerical solutions) 
based on physical principles and strives to help the reader to write his or her own 
computer programs. 

It is my pleasure and duty to acknowledge that writing of this book has been 
influenced by the works oftwo individuals: Professor D. B. Spalding (FRS, formerly 
at Imperial College of Science and Technology, London), who unified the fields of 
heat, mass, and momentum transfer, and Professor S. V. Patankar (formerly at 
University of Minnesota, USA), who, through his book, has made CFD so lucid 
and SIMPLE.! If the readers of this book find that I have mimicked writings of these 
two pioneers from which several individuals (teachers, academic researchers, and 
consultants) and organisations have benefited, I would welcome the compliment. 

I have titled this book as /ntroduction to Computational Fluid Dynamics for two 
reasons. Firstly, the book is intended to serve as a textbook for a student uninitiated in 
CFD but who has had exposure to the three courses mentioned in the first paragraph 
of this preface at undergraduate and postgraduate levels. In this respect, the book 
will also be found useful by teachers and practicing engineers who are increasingly 
attracted to take refresher courses in CFD. Secondly, CFD, since its inception, 
has remained an ever expanding field, expanding in its fundamental scope as well 
as in ever new application areas. Thus, turbulent flows, which are treated in this 
book through modelling, are already being investigated through direct numerical 
simulation (DNS). Similarly, more appropriate constitutive relations for multiphase 


١ The reader will appreciate the significance of capital letters in the text. 
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flow or fora reacting flow are being explored through СЕР. Newer application areas 
such as heat and mass transfer in biocells are also beginning to be explored through 
CFD. Such areas are likely to remain more at the research level than to be part 
of regular practice and, therefore, a student, over the next few years at least, may 
encounter them in research at a Ph.D. level. It is my belief that the approach adopted 
in this book will provide adequate grounding for such pursuits. 

Although this is an introductory book, there are some departures and basic novel- 
ties to which it is important to draw the reader's attention. The first ofthese concerns 
the manner in which the fundamental equations of motion (the Navier-Stokes equa- 
tions) are written. Whereas most textbooks derive or write these equations for a 
continuum fluid, it 15 shown in the first chapter of this book that since numerical 
solutions are obtained in discretised space, the equations must be written in such a 
way that they are applicable to both the continuum as well as the discretised space. 
Attention 15 also drawn to use of special symbols that the reader may find not in 
common with other books on СЕР. Thus, a mass-conserving pressure correction 5 
given the symbol رام‎ to contrast with the two other pressure corrections, namely, the 
total pressure correction р’ and the smoothing pressure correction р. Similarly, 
the velocities appearing at the control-volume faces are given the symbol ur; to 
contrast with those that appear at the nodal locations, which are referred to as u;. 
Again, in a continuum, the two velocity fields must coincide but, in a discretised 
space, distinction between them preserves clarity of the physics involved. Novelty 
will also be found in the discussion of physical principles behind seemingly mathe- 
matical activity governing the topics of numerical grid generation and convergence 
enhancement. It is not my claim that the entire material of the book can be covered 
in a single course on CFD. It is for this reason that 1D formulations are empha- 
sised through dedicated chapters. These formulations convey most of the essential 
ingredients required in CFD practice. 

The ambience of academic freedom, the variety of facilities and the friendly 
atmosphere on the campus of IIT Bombay has contributed in no small measure to 
this solo effort at book writing. I am grateful to my colleagues for their coopera- 
tion in many matters. I am particularly grateful for having had the association of 
a senior colleague like Professor S. P. Sukhatme (FNA, FNAE, former Director, 
IIT Bombay). It has been a learning experience for me to observe him carry out a 
variety of roles (including as writer of two well-received textbooks on heat transfer 
and solar energy) in our institute with meticulous care. Hopefully, some rub-off is 
evident in this book. I have also gained considerably from my Ph.D. and M.Tech. stu- 
dents who through their dissertations have helped validate the computer programs 
I wrote. 

I would like to express my special gratitude to Mr. Peter Gordon, Senior Editor 
(Aeronautical, Biomedical, Chemical, and Mechanical Engineering), Cambridge 
University Press, New York, for his considerable advice and guidance during prepa- 
ration of the manuscript for this book. 
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Finally, I would like to record my appreciation of my wife Suranga, son 
Kartikeya, and daughter Pankaja (Pinky) for bearing my absence on several week- 
ends while writing this book. 
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June 2004 Anil W. Date 


1 Introduction 


1.1 CFD Activity 


Computational fluid dynamics (СЕР) 15 concerned with numerical solution of dif- 
ferential equations governing transport of mass, momentum, and energy in moving 
fluids. CFD activity emerged and gained prominence with availability of com- 
puters in the early 1960s. Today, CFD finds extensive usage in basic and applied 
research, in design of engineering equipment, and in calculation of environmental 
and geophysical phenomena. Since the early 1970s, commercial software packages 
(or computer codes) became available, making CFD an important component of 
engineering practise in industrial, defence, and environmental organizations. 

For along time, design (as it relates to sizing, economic operation, and safety) of 
engineering equipment such as heat exchangers, furnaces, cooling towers, internal 
combustion engines, gas turbine engines, hydraulic pumps and turbines, aircraft 
bodies, sea-going vessels, and rockets depended on painstakingly generated empir- 
ical information. The same was the case with numerous industrial processes such 
as casting, welding, alloying, mixing, drying, air-conditioning, spraying, environ- 
mental discharging of pollutants, and so on. The empirical information is typically 
displayed in the form of correlations or tables and nomograms among the main 
influencing variables. Such information is extensively availed by designers and 
consultants from handbooks [55]. 

The main difficulty with empirical information is that it is applicable only to 
the limited range of scales of fluid velocity, temperature, time, or length for which 
it is generated. Thus, to take advantage of economies of scale, for example, when 
engineers were called upon to design a higher capacity power plant, boiler furnaces, 
condensers, and turbines of ever higher dimensions had to be designed for which 
new empirical information had to be generated all over again. The generation of 
this new information was by no means an easy task. This was because the informa- 
tion applicable to bigger scales had to be, after all, generated via laboratory-scale 
models. This required establishment of scaling laws to ensure geometric, kinematic, 
and dynamic similarities between models and the full-scale equipment. This activity 
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required considerable experience as well as ingenuity, for it is not an easy matter 
to simultaneously maintain the three aforementioned similarities. The activity had 
to, therefore, be supported by flow-visualization studies and by simple (typically, 
one-dimensional) analytical solutions to equations governing the phenomenon un- 
der consideration. Ultimately, experience permitted judicious compromises. Being 
very expensive to generate, such information is often of a proprietary kind. In more 
recent times, of course, scaling difficulties are encountered in the opposite direction. 
This 1s because electronic equipment 1s considerably miniaturised and, in mate- 
rials processing, for example, the more relevant phenomena occur at microscales 
(even molecular or atomic scales where the continuum assumption breaks down). 
Similarly, small-scale processes occur in biocells. 

Clearly, designers need a design tool that is scale neutral. The tool must be 
scientific and must also be economical to use. An individual designer can rarely, if 
at all, acquire or assimilate this scale neutrality. Fortunately, the fundamental laws of 
mass, momentum, and energy, in fact, do embody such scale-neutral information. 
The key is to solve the differential equations describing these laws and then to 
interpret the solutions for practical design. 

The potential of fundamental laws (in association with some further empiri- 
cal laws) for generating widely applicable and scale-neutral information has been 
known almost ever since they were invented nearly 200 years ago. The realisation 
of this potential (meaning the ability to solve the relevant differential equations), 
however, has been made possible only with the availability of computers. The past 
five decades have witnessed almost exponential growth in the speed with which 
arithmetic operations can be performed on a computer. 

By way of reminder, we note that the three laws governing transport are the 
following: 


1. the law of conservation of mass (transport of mass), 
2. Newton's second law of motion (transport of momentum), and 
3. the first law of thermodynamics. (transport of energy). 


1.2 Transport Equations 


The aforementioned laws are applied to an infinitesimally small control volume 
located in a moving fluid. This application results in partial differential equations 
(PDEs) of mass, momentum and energy transfer. The derivation of PDEs is given in 
Appendix A.! Here, it will suffice to mention that the law of conservation of mass is 
written for a single-component fluid or for a mixture of several species. When ap- 
plied to a single species of the mixture, the law yields the equation of mass transfer 
when an empirical law, namely, Fick’s law of mass diffusion (m? = — p D до/дх;), 


١ The reader is strongly advised to read Appendix A to grasp the main ideas and the process of 
derivations. 


1.2 TRANSPORT EQUATIONS 


15 invoked. Newton's second law of motion, combined with Stokes's stress laws, 
yields three momentum equations for velocity in directions x ; (j — 1, 2, 3). Similarly, 
the first law ofthermodynamics in conjunction with Fourier's law of heat conduction 
(qicond = —K OT /0x;) yields the so-called energy equation for the transport oftem- 
perature Т or enthalpy Л. Using tensor notation, we can state these laws as follows: 


Conservation of Mass for the Mixture 
don д(0һиј) _ 





0, 1.1 
01 Ox; ( ) 
Equation of Mass Transfer for Species k 
(pm Or) , O(Qmuj cx) д док 
: = m Deft 一 一 Ry, 1.2 
01 T 0x; 0x; 5 Д 0x; T k ( ) 


Momentum Equations u; (i = 1, 2, 3) 


000 ui) д(оһ uj ui) 0 ди др 
T == Кек = 
ot Ox; Ox; 0x; 9% 











+ Pm B; + Das (1.3) 


Energy Equation — Enthalpy Form 


(бый) | Apmujyh) _ д [Km ðh 
ot 0X; 0 0x; Cpm дх; 





| + o”, (1.4) 
where enthalpy A = Cpm (T — Tef), and 


Energy Equation - Temperature Form 





MD „Мн 5 7 | (1.5) 


01 Ox; Ox; Cpm 0x; Сов. 


In these equations, the suffix m refers to the fluid mixture. For a single- 
component fluid, the suffix may be dropped and the equation of mass transfer 
becomes irrelevant. Similarly, the suffix eff indicates effective values of mass dif- 
fusivity D, viscosity u, and thermal conductivity k. In laminar flows, the values 
of these transport properties are taken from property tables for the fluid under 
consideration. In turbulent flows, however, the transport properties assume values 
much in excess of the values ascribed to the fluid; moreover, the effective transport 
properties turn out to be properties of the flow [39], rather than those of the fluid. 

From the point of view of further discussion of numerical methods, it is indeed 
a happy coincidence that the set of equations [(1.1)-(1.5)] can be cast as a single 
equation for a general variable ®. Thus, 


(ps 4)  д(оһи;Ф) _ 8 04 
- = Ге So. 
ot T дх; 0x; 0 дх; T 5 








(1.6) 
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Table 1.1: Generalised representation of transport equations. 











Equation Ф Ген (exch. coef.) Ss (net source) 

1.1 1 0 0 

1.2 Wk Pm Dest Rx 

1.3 Ui Кек —dp/dx; + Pm B; F Sy; 
1.4 h Кек / C pm oO” 

1.5 T Кек / C pm Q" / Com 





The meanings of Tep and Sẹ for each Ф are listed in Table 1.1. Equation 1.6 is 
called the transport equation for property ®. The rate of change (or time derivative) 
term is to be invoked only when a transient phenomenon is under consideration. 
The term pm © denotes the amount of extensive property available in a unit volume. 
The convection (second) term accounts for transport of due to bulk motion. This 
first-order derivative term is relatively uncomplicated but assumes considerable 
significance when stable and convergent numerical solutions are to be economically 
obtained. This matter will become clear in Chapter 3. Both the transient and the 
convection terms require no further modelling or empirical information. 

The greatest impediment to obtaining physically accurate solutions is offered by 
the diffusion and the net source (5 ) terms because both these terms require empirical 
information. In laminar flows, the diffusion term represented by the second-order 
derivative offers no difficulty because Г, being a fluid property, can be accurately 
determined (via experiments) in isolation of the flow under consideration. In tur- 
bulent (or transitional) flows, however, determination of Ге requires considerable 
empirical support. This 1s labelled as turbulence modelling. This extremely com- 
plex phenomenon has attracted attention for over 150 years. Although turbulence 
models of adequate generality (at least, for specific classes of flows) have been pro- 
posed, they by no means satisfy the expectations of an equipment designer. These 
models determine Г. from simple algebraic empirical laws. Sometimes, 1 is also 
determined from other scalar quantities (such as turbulent kinetic energy and/or its 
dissipation rate) for which differential equations are constituted. Fortunately, these 
equations often have the form of Equation 1.6. 

The term net source implies an algebraic sum of sources and sinks of Ф. Thus, 
in a chemically reacting flow (combustion, for example), a given species k may 
be generated via some chemical reactions and destroyed (or consumed) via some 
others and Ё will comprise both positive and negative contributions. Also, some 
chemicalreactions may be exothermic, whereas others may be endothermic, making 
positive and negative contributions to Q”. Similarly, the term B; in the momentum 
equations may represent a buoyancy force, a centrifugal and/or Coriolis force, an 
electromagnetic force, etc. Sometimes, B; may also represent resistance forces. 
Thus, in a mixture of gas and solid particles (as in pulverised fuel combustion), В; 
will represent the drag offered by the particles on air, or, in a fluid flow through a 
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densely filled medium (a porous body or a shell-and-tube geometry), the resistance 
will be a function ofthe porosity ofthe medium. Such empirical resistance laws are 
often determined from experiments. The S, terms represent viscous terms arising 
from Stokes's stress laws that are not accounted for in the pss [шет 1 term in 
Equation 1.3. 


1.3 Numerical Versus Analytical Solutions 


Analytical solutions to our transport equations are rarely possible for the following 
reasons: 


1. The equations are three-dimensional. 

2. The equations are strongly coupled and nonlinear. 

3. In practical engineering problems, the solution domains are almost always 
complex. 


The equations, however, can be made amenable to analytical solutions when 
simplified through assumptions. In a typical undergraduate program, students de- 
velop extensive familiarity with such analytical solutions that can be represented 
in closed form. Thus, in a fluid mechanics course, for example, when fully devel- 
oped laminar flow in a pipe is considered, a student 15 readily able to integrate the 
simplified (one-dimensional) momentum equation to obtain a closed-form solution 
for the streamwise velocity u as a function of radius r. The assumptions made are 
as follows: The flow is steady and laminar, it is fully developed, it is axisymmetric, 
and fluid properties are uniform. The solution is then interpreted to yield the scale- 
neutral result f x Re = 16. The friction factor fis a practically useful quantity 
that enables calculation of pumping power required to force fluid through a pipe. 
Similarly, in a heat transfer course, a student learns to calculate reduction of heat 
transfer rate when insulation of a given thickness is applied to a pipe. In this case, 
the energy equation is simplified and the assumptions are as follows: Heat transfer is 
radial and axi symmetric, steady state prevails, and the insulation conductivity may 
be constant and there is no generation or dissipation of energy within the insulation. 

In both these examples, the equations are one dimensional. They are, there- 
fore, ordinary differential equations (ODEs), although the original transport equa- 
tions were PDEs. In many situations, in spite of the assumptions, the governing 
equations cannot be rendered one dimensional. Thus, the equations of a steady, 
two-dimensional velocity boundary layer or that of one-dimensional unsteady heat 
conduction are partial differential equations. It is important to recognise, how- 
ever, that there are no direct solutions to partial differential equations. To obtain 
solutions, the PDEs are always first converted to ODEs (usually more in number 
than the original PDEs) and the latter are solved by integration. Thus, in an un- 
steady conduction problem, the ODEs are formed by the method of separation of 
variables, whereas, for the two-dimensional velocity boundary layer, the ODE is 
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formed by invoking a similarity variable. In such circumstances, often the solution 
15 in the form of a series. We assume, of course, that the reader is familiar with the 
restrictive circumstances (often of significant practical consequence) under which 
such analytical solutions are constructed. 

Analytical solutions obtained in the manner described here are termed exact 
solutions. They are applicable to every point of the time and/or space domain. The 
solutions are also called continuous solutions. АП the aforementioned solutions are 
well covered in an undergraduate curriculum and in textbooks (see, for example, 
[34, 80, 88]). 

Unlike analytical solutions, numerical solutions are obtained at a few chosen 
points within the domain. They are therefore called discrete solutions. Numerical 
solutions are obtained by employing numerical methods. The latter are really an 
intermediary between the physics embodied in the transport equations and the 
computers that can unravel them by generating numerical solutions. The process 
of arriving at numerical solutions is thus quite different from the process by which 
analytical solutions are developed. 

Before describing the essence of numerical methods, it is important to note 
that these methods, in principle, can overcome all three aforementioned imped- 
iments to obtaining analytical solutions. In fact, the history of CFD shows that 
numerical methods have been evolved precisely to overcome the impediments in 
the order of their mention. Thus, the earliest numerical methods dealt with one- 
dimensional equations for which analytical solutions may or may not be possible. 
Methods for two-dimensional transport equations, however, had to incorporate sub- 
stantially new features. In spite of these new features, many methods applicable to 
two-dimensional coupled equations could not be extended to three-dimensional 
equations. Similarly, the earlier methods were derived for transport equations cast 
in only orthogonal co-ordinates (Cartesian, cylindrical polar, or spherical). Later, 
however, as computations over complex domains were attempted, the equations 
were cast in completely arbitrary curvilinear (£1, &, £3) coordinates. This led to 
development of an important branch of CFD, namely, numerical grid generation. 
With this development, domains of arbitrary shape could be mapped such that 
the coordinate lines followed the shape of the domain boundary. Today, complex 
domains are mapped by yet another development called unstructured mesh gener- 
ation. In this, the domain can be mapped by a completely arbitrary distribution of 
points. When the points are connected by straight lines, one obtains polygons (in 
two dimensions) and polyhedra (in three dimensions). Several methods (as well as 
packages) for unstructured mesh generation are now available. 


1.4 Main Task 


It is now appropriate to list the main steps involved in arriving at numerical solutions 
to the transport equation. To enhance understanding, an example of an idealised 
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Figure 1.1. Typical two-dimensional domain. 


combustion chamber of a gas-turbine engine will be considered. 


1. 


Given the flow situation of interest, define the physical (or space) domain of 
interest. In unsteady problems, the time domain is imagined. Figure 1.1 shows 
the domain of interest of the idealised chember. Fuel and air streams, separated 
by a lip wall, enter the chamber at the inflow boundary. The cross section of the 
chamber is taken to be a perfect circle so that a symmetry boundary coinciding 
with the axis 15 readily identified. The enclosing wall is solid and the burnt 
products of combustion leave through the exit boundary. Because the situation 
is idealised as a two-dimensional axisymmetric domain that will involve fluid 
recirculation, there are four boundaries of interest: inflow, wall, symmetry, and 
exit. 

Select transport equations with appropriate diffusion and source laws. Define 
boundary conditions on segments of the domain boundary for each variable d. 
Also, define the fluid properties. The boundary segments have already been iden- 
tified in Figure 1.1. Now, since air and fuel mix and react chemically, equations 
for © = и, из, из (swirl velocity), Т or A, and several mass fractions од must be 
solved. The choice of ره‎ will of course depend on the reaction model postulated 
by the analyst. Further, additional equations must be solved to capture effects 
of turbulence via a turbulence model. This matter will become clear in later 
chapters. 

Select points (called nodes) within the domain so as to map the domain with a 
grid. Construct control volumes around each node. In Figure 1.2, the domain of 
interest is mapped by three types of grids: Cartesian, Curvilinear, and Unstruc- 
tured. The hatched portions show the control volumes and the filled circles are 
the nodes. Note that in the Cartesian grids, the control volumes near the slanted 
wall are not rectangular as elsewhere. This type of difficulty 15 overcome in the 
curvilinear grids where all control volumes are quadrilaterals and the grid lines 
follow the contours ofthe domain boundary as required. The unstructured grid is 
completely arbitrary. Although most control volumes are triangular, one can also 
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Figure 1.2. Different types of grids. 


have polygons of any number of sides. This activity of specifying coordinates 
of nodes and of specification of control volumes is called grid generation. 

4. Integrate Equation 1.6 over a typical control volume so as to convert the partial 
differential equation into an algebraic one. This 1s unlike the analytical solutions 
in which the original PDEs are converted to ordinary ones. Thus, if there are 
NV variables of interest and the number of nodes chosen is NP, one obtains 
a set of NV x NP algebraic equations. The process of converting PDEs into 
algebraic equations is called discretisation. 

5. Devise a numerical method to solve the set of algebraic equations. This can be 
done sequentially, so that N P equations are solved for each ® in succession. Al- 
ternatively, one may solve the entire set of N V x N P equations simultaneously. 
The construction of the overall calculation sequence is called an algorithm. 

6. Devise a computer program to implement the numerical method on a computer. 
Different numerical methods require different amounts of computer storage and 
different amounts of computer time to arrive at a solution. Aspects such as 
economy in terms of number of arithmetic operations, convergence rate, and 
stability of the numerical method are thus important. 


1.5 A NOTE ON NAVIER-STOKES EQUATIONS 


7. “Interpret the solution:” The numerical solution results in values of each ® 
at each node. Such a Ф field provides the distribution of over the domain. 
The task now is to interpret the solution to retrieve quantities of engineering 
interest such as the friction factor, a Nusselt number at the wall, or average 
concentrations of CO, fuel, and NO, at the exit from a combustion chamber. 
Sometimes the field may be curve-fitted to take the appearance of an analytical 
solution. Similarly, the derived quantities may also be curve-fitted to take the 
appearance of an experimentally derived correlation for ready use in further 
design work. 

8. “Display of results:” Since a numerical solution is obtained at discrete points, 
the solution comprises numbers that can be printed in tabular forms. The in- 
convenience of reading numbers can be circumvented by plotting results on a 
graph or by displaying the Ф fields by means of contour or vector plots. Fortu- 
nately, such graphic displays can now be made using computers. This activity 
15 called postprocessing of results. The commercial success of computer codes 
often depends on the quality and flexibility of their postprocessors. 


The primary focus of this book is to explain procedures for executing these 
steps. Computer code developers and researchers adopt a variety of practices to 
implement the procedures depending on their background, familiarity, and notions 
of convenience. Clearly biases are involved. 

In this book, emphasis is laid on physical principles. In fact, the attitude is one 
of relearning fluid mechanics and heat and mass transfer by obtaining numerical 
(as opposed to restrictive analytical) solutions. The book 15 not intended to provide 
a survey of all numerical methods; rather, the objective is to introduce the reader 
to a few specific methods and procedures that have been found to be robust in a 
wide variety of situations of a specific class. The emphasis is on skill development, 
skills required for problem formulation, computer code writing, and interpretation 
of results. 


1.5 A Note on Navier-Stokes Equations 


The law of conservation of mass for the bulk fluid together with Newton's second 
law of motion constitutes the main laws governing fluid motion. As shown in 
Appendix A, the equations of motion are written in differential form and, therefore, 
assume existence of a fluid continuum. In this section, attention is drawn to an 
often overlooked requirement that assumes considerable importance in the context 
of CFD in which numerical solutions are obtained at discrete points rather than at 
every point in space as in a continuum. 

Attention is focussed primarily on the normal stress expressions given in 
Appendix A (see Equations A.15). As presented in Schlichting [65], the normal 
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stresses are given by 
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In these normal stress expressions, о” is called the deviotoric stress and the 
significance of quantity q in its definition requires elaboration. Schlichting [65] 
and Warsi [86], for example, define a space-averaged pressure p as 


1 
Res (to o). (1.10) 


Now, an often overlooked requirement of the Stokes's relations is that, in a 
continuum, p must equal the point value of pressure p and the latter, in turn, must 
equal the thermodynamic pressure pm. Thus, 


- 2 
ترك بر‎ a= = == ey (1.11) 


In the context of this requirement, we now consider different flow cases to derive 
the significance of q. 


1. Case 1 (V = 0): In this hydrostatic case, 


apg. (1.12) 


But in this case, p can only vary linearly with x, y, and z and, therefore, the point 
value of p exactly equals its space-averaged value p in both continuum as well 
as discretised space and hence q = 0 exactly. 

2. Case 2 (и = 0 1ه‎ y - V = 0): Clearly when и = 0 (inviscid flow) or y . V = 0 
(constant-density incompressible flow) Equation 1.12 again holds. But, in this 
case, since fluid motion is considered, р can vary arbitrarily with x, у, and z 
and, therefore, p may not equal р in a discrete space. To understand this matter, 
consider a case in which pressure varies arbitrarily in the x direction, whereas 
its variation in y and z directions is constant or linear (as in a hydrostatic case). 
Such a variation is shown in Figure 1.3. Now consider a point P. According to 
Stokes’s requirement pp must equal рь ina continuum. However, in a discretised 
space, the values of pressure are available at points E and W only, and if these 
points are equidistant from P then pp = 0.5(pw + рь). Now, this pp will not 
equal pp, as seen from the figure, and therefore the requirement of the Stokes's 
relations is not met. 

However, without violating the continuum requirement, we may set 


q —(p- p) (1.13) 
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Figure 1.3. One-dimensional variation of pressure and stokes's requirement. 


where A, is an arbitrary constant. In most textbooks, where a continuum is 
assumed, А is trivially set to zero. 

3. Case 3 (п #0 and ху. V £0): This case represents either compressible flow 
where density is a function of both temperature and pressure or incompressible 
flow with temperature-dependent density. Thus, 


0 2 
In this case, Stokes's requirement will be satisfied 1f we set 
4 = ט.+(ק-ק)וג‎ TY, )1.15( 


where А is the well-known second viscosity coefficient whose value is set 
to — (2/3) even in a continuum. 


It is instructive to note the reason for setting А = —(2/3) u. For, if this were not 
done, it would amount to 


2 
п-т م.م‎ = (oiu) (v Vy. (1.16) 


Clearly, therefore, the system will experience dissipation (or reversible work 
done at finite rate since y - V is associated with the rate of volume change) even 
in an isothermal flow [65, 86]. This is, of course, highly improbable.? 

Thus, the Stokes's relations require modifications in a continuum when com- 
pressible flow is considered, and a physical explanation for this modification can 
be found from thermodynamics. Now, the same interpretation can be afforded to 
the ןג‎ (p — p) part of q in Equation 1.13 or 1.15. This term represents a necessary 
modification in a discretised space. This is an important departure from the forms 
of normal stress expressions given in standard textbooks on fluid mechanics. It will 
be shown in Chapter 5 that recognition of the need to include this term is central to 
prediction of smooth pressure distributions via CFD in discrete space [17]. 


? Schlichting [65] shows this improbability by considering the case of an isolated sphere of a com- 
pressible isothermal gas subjected to uniform normal stress. Now if A is not set to — (2 / 3( the 
gas will undergo oscillations. 
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Before leaving this section, it is important to note that since p must equal p 
in a continuum (see Equation 1.11), the former must essentially be the hydrostatic 
pressure, irrespective of the flow considered. Mathematically, therefore, we may 
define p as 


1 1 
Pan ы шк 3 (Px + Ppt Pa): (1.17) 


where D, is a solution to 0? p/àx? = 0, p, is a solution to 0? p/dy* = 0, and D, is 
a solution to 8? p/dz? = 0. 

In effect, therefore, the equations of motion (also called the Navier-Stokes 
equations) valid for both continuum and discrete space must read as 
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where q is given by Equation 1.13 for incompressible (viscous or inviscid) flow and 
by Equation 1.15 for compressible flow. In spite of this recognition, the equations 
are further discussed (in conformity with standard textbooks) for a continuum only 
with A; = 0, but the existence of finite 和 1 will be discovered in Chapter 5 where 
solutions in discrete space are developed. 


1.6 Outline of the Book 


The book is divided into nine chapters. Chapter 2 deals with one-dimensional (1D) 
conduction in steady and unsteady forms. In this chapter, the main ingredients of a 
numerical procedure are elaborately introduced so that familiarity is gained through 
very simple algebra. Chapter 3 deals with the 1D conduction—convection equation. 
This somewhat artificial equation is considered to inform the reader about the nature 
of difficulty introduced by convection terms. The cures for the difficulty developed 
in this chapter are used in all subsequent chapters dealing with solution of transport 
equations. 

Chapter 4 deals with convective transport through boundary layers. This is an 
important class of flows encountered in fluid dynamics and heat and mass transfer. 
The early CFD activity relied heavily on solution of two-dimensional (2D) parabolic 
equations (a subset of the complete transport equations) appropriate to boundary 
layer flows. In this chapter, issues of grid adaptivity and turbulence modelling are 
introduced for external wall boundary layers and free-shear layers and for internal 
(ducted) boundary layer development. 


EXERCISES 


Chapter 5 deals with solution of complete transport equations on Cartesian grids. 
Only 2D flow situations that may involve regions of fluid recirculation are consid- 
ered. The transport equations now take the elliptic form. In essence, this chapter 
introduces all ingredients required to understand CFD practice. In this sense, the 
chapter provides a firm foundation for development of solution procedures employ- 
ing curvilinear and unstructured grids. The latter developments are described in 
Chapter 6. 

Chapters 7-9 deal with special topics in CFD. In Chapter 7, the reader is in- 
troduced to the topic of phase change. In engineering practice, heat and mass 
transfer are often accompanied by solid-to-liquid, liquid-to-vapour, and/or solid-to- 
vapour (and vice versa) transformations. This chapter, however, deals only with 
solidification/melting phenomena in one dimension to develop understanding of 
the main difficulties associated with obtaining numerical solutions. Chapter 8 deals 
with the topic of numerical grid generation and methods for curvilinear and unstruc- 
tured grid generation are introduced. Finally, in Chapter 9, methods for enhancing 
the rate of convergence of iterative numerical procedures are introduced. 

There are three appendices. Appendix A provides the derivation of the transport 
equations. In Appendix B, a computer code for solving 1D conduction problems is 
given. This code is based on material of Chapter 2. Appendix C provides a computer 
code for 2D conduction-convection problems in Cartesian coordinates. This code 
is based on material of Chapter 5. Familiarity with the use of these codes, it is 
hoped, will provide readers with sufficient exposure to enable development of their 
own codes for boundary layer flows (Chapter 4) , for employing curvilinear and 
unstructured grids (Chapter 6), for phase change (Chapter 7), and for numerical 
grid generation (Chapter 8). 

At the end of each chapter, exercise problems are given to enhance learning. 
Also, in each chapter, sample problems are solved and results are presented to aid 
their interpretation. 


EXERCISES 


1. Express full forms of ће S,, terms in Equation 1.3 fori = 1, 2, and 3. Show 
that if u and p are constant then, for an incompressible fluid, 5, = 0. 


2. Consider Equations 1.1-1.5. Assuming SI units, verify that units of each term 
in a given equation are identical. 


3. Show that summing of each term in Equation 1.2 over all species of the mixture 
results in the mass conservation equation (1.1) for the mixture. 


4. Consider the plug-flow thermo-chemical reactor (PFTCR) shown in Figure 1.4. 
To analyse such a reactor, the following assumptions are made: (a) All ®s vary 
only along the length (say, x) of the reactor. (b) Axial diffusion and conduction 
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Figure 1.4. Schematic of a plug-flow reactor. 


are neglected. (c) Heat (qw W/m?), mass (Nw kg/m?-s), and work (Wext W/m?) 
through the reactor walls may be present. (d) The cross-sectional area А and 
perimeter P vary with x. 

Following the practice adopted in Appendix A, apply the fundamental laws 
to a control volume А Ax. Hence, show that 
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+(qw + Nwhw)P (Energy). 
where m = pm Au and hy is the specific enthalpy of the injected fluid. 


5. Consider the well-stirred thermo-chemical reactor (WSTCR) shown in Fig- 
ure 1.5. A WSTCR may be likened to a stubby PFTCR having fixed volume 
Vay = A Ax so that in all the PFTCR equations 


aw AW №, - וש‎ 
Ox Ar Ах ` 

Further, in a WSTCR, it is assumed that all Vs take values of state 2 as soon 

as the material and energy flow into the reactor. Assuming uniform pressure 


(pi = р»), show that 
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Vey (Energy), 

where Ow = qw P Ах / Vw 18 the wall heat transfer per unit volume, We = 
Tw P Ax / Vw is the work due to wall shear, and my = У) mg w = Nw P Ax/ Ve, 
is the mass injection through the boundary per unit volume. 


6. The well-known thermodynamic open system having fixed volume Vey is the 
same as the WSTCR. To derive the familiar form, consider flow of a pure- 
substance so that the species equation is redundant and pm = о. Further, neglect 
viscous dissipation, radiation, and chemical heats. Also, let my = 0. Hence, 
show that 








: d Mw 
My = P = mn — n», (1.21) 
. d E, . | | | 
Ew = 77 = 0% — We + (m h)i — (їй), (1.22) 
where Mey = р Vey, Ec = Mev e, and the symbol e stands for specific internal 


energy. 


7. Consider a constant-volume and constant-mass (1.е., m; = m; =m, = 0) 
WSCTR with Oy = Wext = 0. Neglect heat generation due to viscous dis- 
sipation and radiation so that Q” = Ocnem + dp/dt. For such a reactor, show 
that the species and energy equations are given by 

d ок de , 
—— = R; and = = : 
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Typically, Ё is a function of temperature Т. How will you determine Т? 
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PISTON Figure 1.6. Equilibrium of an isothermal gas. 
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Consider a constant-pressure and constant-mass reactor so that volume change 

is permitted. Assume Qw = 0. Hence, show that 
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. Consider a 2D natural convection problem in which the direction of gravity is 


aligned with the negative x? direction. Use the definition of the coefficient of 
cubical expansion В = 一 dcs 9p/9T and express the В» term in Equation 1.3 
in terms of В. Now, examine whether it is possible to redefine pressure as, 
say, p* = p + perg x? in Equations 1.3 for i = 1 and 2. If so, recognise that 


Pref g X2 is nothing but a hydrostatic variation of pressure. 


Consider a frictionless piston-cylinder assembly containing isothermal gas 
as shown in Figure 1.6. The assembly is perfectly insulated. Now, consider 
the unlikely circumstance in which the external pressure p is not equal to 
internal pressure p. Discuss the consequences if the gas temperature is to remain 
constant. 


2 1D Heat Conduction 


2.1 Introduction 


A wide variety of practical and interesting phenomena are governed by the 1D heat 
conduction equation. Heat transfer through a composite slab, radial heat transfer 
through a cylinder, and heat loss from a long and thin fin are typical examples. By 
1D, we mean that the temperature is a function of only one space coordinate (say x 
or r). This indeed is the case in steady-state problems. However, in unsteady state, 
the temperature is also a function of time. Thus, although there are two relevant 
independent variables (or dimensions), by convention, we refer to such problems as 
1D unsteady-state problems. The extension dimensional thus always refers to the 
number of relevant space coordinates. 

The 1D heat conduction equation derived in the next section is equally applicable 
to some ofthe problems arising in convective heat transfer, in diffusion mass transfer, 
and in fluid mechanics, if the dependent and independent variables of the equation 
are appropriately interpreted. In the last section ofthis chapter, therefore, problems 
from these neighbouring fields will be introduced. Our overall objective in this 
chapter is to develop a single computer program that is applicable to a wide variety 
of 1D problems. 


2.2 1D Conduction Equation 


Consider the 1D domain shown in Figure 2.1, in which the temperature varies only 
in the x direction although cross-sectional area 4 may vary with x. 

The temperature over the cross section is thus assumed to be uniform. We shall 
now invoke the first law of thermodynamics and apply it to a typical control volume 
oflength Ax. The law states that (Rate of energy in) — (Rate of energy out) 4- (Rate 
of generation of energy) — (Rate of change of Internal energy), or 


д 
О. - Orrar +4”ААх = с [pAAXCT] W, (2.1) 
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Figure 2.1. Typical 1D domain. 
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where "ان‎ (W/m?) is the volumetric heat generation rate, C denotes specific heat 
(J/kg-K), and Q (W) represents the rate at which energy is conducted. Further, it 
15 assumed that the control volume AV = A(x) x Ax does not change with time. 
Similarly, the density o is also assumed constant with respect to time but may vary 
with x. Therefore, dividing Equation 2.1 by AV, we get 





О, - Ох+лх n (С Т) 
6 Ana = . 22 
A Ax כ ו ו‎ 
Now, letting Ax — 0, we obtain 
180 „_ (СТ) 





== = 23 
дах 7 ° дг C2) 
This partial differential equation contains two dependent variables, О and 7. 
The equation is rendered solvable by invoking Fourier’s law of heat conduction. 
Thus, 


oT 
Q = – КА —, (2.4) 
дх 
where / is the thermal conductivity of ће domain medium. Substituting Equation 


2.4 1n Equation 2.3 therefore yields 
0 oT (СТ) 
— | КА 一 “A=pA А 2.5 
дх | | +4 p 01 a 


It will be instructive to make the following comments about Equation 2.5. 





1. The equation is most general. It permits variation of medium properties p, К, 
and C with respect to x and/or f. 

2. The equation permits variation of cross-sectional area А with x. Thus, the equa- 
tion is applicable to the case ofa conical fin, for example. Similarly, the equation 


2.3 GRID LAYOUT 








PRACTISE A 
ke 12 3 4 5 6 7 8 9 
1 l 1 | 1 l 
| | | | | | | | 
© هم 1 هه‎ е ——e-6 
1 1 1 | 1 1 
| | | | | | | | 
x 7 8 4 5 6 7 8 N-9 
PRACTISE B 
CELL FACE 
io: 2 4 5 6 / 8 9 
| 1 | | | | | 1 
1 l 1 1 l 1 l 1 
| | | | | | 
Фе өө ө ө o өф 
| | | | 1 | | | 
| | | | | | | | 
1 2 3 4 3 6 7 8 N=9 


Figure 2.2. Grid layout practises. 


15 also applicable to the case of cylindrical radial conduction if it 15 recognised 
that A = 2 хл x r, and if x is replaced by r. 

3. The equation also permits variation of q” with Tor x. Thus, if an electric current 
is passed through the medium, q” will be a function of electrical resistance and 
the latter will be a function of 7. Similarly, in case of a fin losing heat to the 
surroundings due to convection, q” will be negative and it will be a function of 
the heat transfer coefficient / and perimeter P. 

4. Equation 2.5 is to be solved for boundary conditions at x — 0 and x — L (say). 
Thus, 0 > x > L specifies the domain of interest.! 


2.3 Grid Layout 


As mentioned in Chapter 1, numerical solutions are generated at a few discrete 
points in the domain. Selection of coordinates of such points (also called nodes) is 
called grid layout. Two practises are possible (see Figure 2.2). 


Practise A 

In this practise, the locations of nodes (shown by filled circles) are first chosen 
and then numbered from 1 to N. Note that the chosen locations need not be 
equispaced. Now the control volume faces (also called the cell faces) are placed 
midway between the nodes. When this is done, a difficulty arises at the near- 
boundary nodes 2 and N — 1. For these nodes, the cell face to the west of node 2 


! Numerical solutions are always obtained for a domain of finite size. In many problems, the boundary 
condition is specified at x — oo. In this case, L is assumed to be sufficiently large but finite. 
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Figure 2.3. Typical node P - Practise A. 


15 assumed to coincide with node 1 and, similarly, the cell face to the east of node 
N — 1 is assumed to coincide with node N. As such, there is no cell face between 
nodes 1 and 2, nor between nodes N — 1 and N. The space between the adjacent 
cell faces defines the control volume. In this practise therefore the nodes, in gen- 
eral, will not be at the centre of their respective control volumes. Also note that 
if N nodes are chosen, then there are N — 2 control volumes. 


Practise B 

In this practise, the location of cell faces 15 first chosen and then the grid nodes 
are placed at the centre of the control volumes thus formed. Note again that the 
chosen locations of the cell faces need not be equispaced. Both practises have their 
advantages and disadvantages that become apparent only as one encounters multi- 
dimensional situations. Yet, a choice must be made. In this chapter, much of the 
discussion is carried out using practise A, but it will be shown that a generalised 
code can be written to accommodate either practise. 


2.4 Discretisation 


Having chosen the grid layout, our next step 15 to convert the PDE (2.5) to an 
algebraic one. This process of conversion is called discretisation. Here again, there 
are two possible approaches: 


1. a Taylor series expansion (TSE) method or 
2. anintegration over a control volume (IOCV) method. 


In both methods, a typical node P is chosen along with nodes E and W to east 
and west of P, respectively (see Figure 2.3). The cell face at e 15 midway between P 
and E, likewise, the cell face at w is midway between P and W. 

Before describing these methods, it 1s important to note an important aspect of 
discretisation. Equation 2.5 1s a partial differential equation. The time derivative 
on the right-hand side (RHS), therefore, must be evaluated at a fixed x. We choose 
this fixed location to be node P. The left-hand side (LHS) of Equation 2.5, however, 
contains a partial second derivative with respect to x and, therefore, this derivative 


2.4 DISCRETISATION 


must be evaluated at a fixed time. The choice of this fixed time, however, is not so 
straightforward because over a time step At, one may evaluate the LHS at time f, 
or t + At, or at an intermediate time between 1 and 1 + At. In general, therefore, 
we may write Equation 2.5 as 


v (LHS)p-(1—w)LHS)pg-mRHS|» (2.6) 


where w is a weighting factor, superscript n refers to the new time ¢ + Af, and 
superscript o refers to the old time 7. If we choose w = 1 then the discretisation is 
called implicit, if y = 0 then it is called explicit, 80110 < у < 1, itis called semi- 
implicit or semi-explicit. Each choice has a bearing on economy and convenience 
with which a numerical solution is obtained. The choice of w is therefore made by 
the numerical analyst depending on the problem at hand. The main issues involved 
will become apparent following further developments. 


2.4.1 TSE Method 


To employ this method, Equation 2.5 is first written in a nonconservative form. 
Thus, 


ƏT Ә(КА) ӘТ 





LHS|p = kA 一 一 一 一 "А; 2.7 
Ir 0x? = ax Ox ₪ v) 
(СТ 


Equation 2.7 contains first and second derivatives of T with respect to x. To 
represent these derivatives we employ a Taylor series expansion: 














07 Ах? Ә?Т 
Те = Ip + א‎ 6 ey 2.9 
E Р + „тш 5 au (2.9) 
07 Ax? ƏT 
Tw = Tp — Axw 8 2.10 
ЕСЕТ XE eu 








From these two expressions, it is easy to show that 














07| _ Ax? Tg — Ax? Tw + (Ax? — Ax?) Tp (2.11) 

8% |p 0 Axe Axw (Axe + Axy) | | 
T| Ах, Te + Axe Tw — (Axe + Axw) Tp (2.12) 
əx? |p Ахе Ах (Ахе + Axw)/2 | 








Note that, in Equations 2.9 and 2.10, terms involving derivative orders greater 
than 2 are ignored. Therefore, Equations 2.11 and 2.12 are called second-order- 
accurate representations of first- and second-order derivatives with respect to x. 
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Now to evaluate the time derivative, we write 


а ЕР (2.13) 
Р 


(C T)? = (C TG + At 





or 


a(C T) 
at 


(C T) - (C Dp 
שר‎ At | 





(2.14) 








In Equation 2.13, derivatives of order higher than 1 are ignored; therefore, 
Equation 2.14 is only a first-order-accurate representation of the time derivative? 

Inserting Equations 2.11 and 2.12 in Equation 2.7 and Equation 2.14 in Equation 
2.8 and employing Equation 2.6, we can show that 














АС" 
EE VE ат | Tp = y [AE TE + AW Ty] + 5, (2.15) 
Р 
with 

2 Axw d (kA) Ax 
АЕ = — | (kA Я 2.16 
Axe [ Ip 2 dx | (Axe + Axw) 

2 Axe d (kA) AX 
AW = — | (kA) — : 27 
Nw [ ү 2 dx | (Axe + Axw) m 





S—[vap" + )1 - )ap^] AV + (1 — V) [AE T + AW Ту] 
E 





- 0 -WAE ат| ү, (2.18) 
At | 


where AV = A Ax. Note that ifthe cell faces were midway between adjacent nodes, 
2Ax = Axe + Axy. Before leaving the discussion of the TSE method, we make 
the following observations: 


1. Calcuation of coefficients АЕ and AW requires evaluation of the derivative 
d (kA)/d x |p. This derivative can be evaluated using expressions such as (2.11) 
in which T is replaced by КА. 

2. For certain variations of (kA) and choices of Ax, and Axy, AE and/or AW can 
become negative. 

3. For certain choices of Aż, the multiplier of 7р in Equation 2.18 can become 
negative. 

4. In steady-state problems, At = oo and T° has no meaning. Therefore, in such 
problems, w always equals 1. 


? Clearly, it is possible to represent the time derivative to a higher-order accuracy. However, the 
resulting expression will involve reference to Т", T°, T°, and so on. 


2.4 DISCRETISATION 


From the point of view of obtaining stable and convergent numerical solutions, 
Observations 2 and 3 are significant. The associated matter will become clear in a 
later section. 


2.4.2 lOCV Method 


In this method, the RHS and LHS of Equation 2.5 are integrated over a control 
volume Ax and over a time step Af. Thus, 


/ eg aT t e 
mans = f | = СУ dxdt + | | q" Adxdt, (2.19) 
1 Ww X дх 1 w 


where ¢’ = t + At. It is now assumed that the integrands are constant over the time 
interval At. Further, q” is assumed constant over the control volume and since the 
second-order derivative is evaluated at a fixed time, we may write 


oT 
— kA — 


oT 
Int(LHS) = | kA — 
Ox Ox 








| At + ql! A Ax At. (2.20) 


e Ww 


It is further assumed that T varies linearly with x between adjacent nodes. Then 


oT 
Ox 


_ Tp — Tw 
0 AX. 








| 5-5 oT 


2.21 
Axe Ox ( ) 








e WwW 


Note that when the cell faces are midway between the nodes, these represen- 
tations of the derivatives are second-order accurate (see Equation 2.11). Using 
Equation 2.21 therefore gives 








kA kA 
Int(LHS) = | | (Te — Te) + | (Ту - Te) | At 
+ qi! A Ax At. (2.22) 


Similarly, 





"fe (CT 
ткн) = p 4 f | - ) dedi 
1 w 


= (p 4 Ax)e[(C T)" - (СТ)? ]p. (2.23) 


Substituting Equations 2.22 and 2.23 into the integrated version of Equation 2.6, 
therefore, we can show that 


pAVC? 
At 





+ (АЕ Am) Th = y [AE TE + AW TÈ] +S, (2.24) 
P 
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where 

kA 

4 mc (2.25) 
Ах |. 
kA 

p uus (2.26) 
Ах | 

S=[wap" + )1 у) ар ЈАР 
+ — y) [4E T? + AW T$] 
AV C? 
= 1 = + מז‎ py (2.27) 
P 





Note that Equation 2.24 has the same form as Equation 2.15, but there are 
important differences: 


1. Coefficients AE and AW can never be negative since k A/ Ax can only assume 
positive values. 

2. AE and AW are also amenable to physical interpretation; they represent 
conductances. 

3. Again, in steady-state problems, y = 1 because At = оо. In unsteady problems, 
for certain choices of At, however, the multiplier of Tp can still be negative. 
This observation is in common with the TSE method. 


2.5 Stability and Convergence 


Before discussing the issues of stability and convergence, we recognize that there 
will be one equation of the type (2.24) [or (2.15)] for each node P. To minimize 
writing, we designate each node by a running index i = 1,2, 3,..., №, wherei = 1 
andi = N are boundary nodes. Thus, Equations 2.24 are written as 


45 Ti = [AE Та + AW; Tii] +S, i=2,3,...,.N—1, (2.28) 


where superscript 7 is now dropped for convenience. In these equations, АР; 
represents multiplier of 7p in Equation 2.24. 

It will be shown later that this equation set can be written in a matrix form 
[A][T] = [S], where [A] is the coefficient matrix and [T] and [S] are column vectors. 
This set can be solved by a variety of direct and iterative methods. The methods 
yield converged solutions only when the condition for convergence (also known as 
Scarborough’s criterion [64]) is satisfied. To put it simply, the criterion states that 


Condition for Convergence 


VIAE + IAWI] _ 


ИР] > 1 for all nodes, (2.29) 
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Figure 2.4. Explicit procedure. 


V [IAEl +|АЙ|] 
|APi| 





“1 for at least one node. (2.30) 


Condition for Stability 

In unsteady problems, the stability of the calculation procedure, however, requires 
that the coefficient of T? contained in the S; term always be positive. It will be 
shown in the next section that this implies a restriction on the permissible size of 
the time step. 


2.5.1 Explicit Procedure y» = 0 


In this case, Equation 2.28 will read as 


AV;C? 7 
Е T, = AE, TA, + AW, Т + j^ А Ах 
AV; C? 
+ [eene = (АЕ, + aw | Тг. (2.31) 


Equation 2.31 shows that the values of 7; at a new time step are now calculable 
explicitly in terms of values 7? |, Т, and Те |. Terms containing 7;,; and Ti_1 
do not appear on the RHS. Therefore, the equation is explicit and no iterations are 
required. This situation is also depicted in Figure 2.4. Thus, starting with known 
initial temperature distribution at 1 = 0, one can evaluate temperatures at each new 
time step. Such a solution procedure is called a marching solution procedure. It is 
very easy to devise computer code for a marching procedure. 

In an explicit procedure, the issue of convergence is irrelevant but the stability 
of the calculation procedure requires that the coefficient of 7° always be positive. 
From Equation 2.31 it is clear that this requirement is satisfied when 


AV, С° 
At > Pag | (2.32) 
AE; + AW; min 


3 This condition of positiveness is strictly meant for the case of w = 0. For y = 1, the condition 
is automatically satisfied. For 0 < ү < 1, however, the condition again holds but can be violated 
without impairing stability of the solution procedure. This is discussed in Section 2.5.2. 
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Figure 2.5. Bonding of plastic sheets — Problem 1. 


Mathematically more rigorous arguments concerning this stability condition 
will be discussed in the next chapter. Here we consider a problem^ to develop 
essential understanding. 


Problem 1 [80] 

Two plastic sheets, each 5 mm thick, are to be bonded together with a thin layer 
of adhesive that fuses at 14070. For this purpose, they are pressed between two 
surfaces at 250°С (see Figure 2.5). Determine the time for which the two sheets 
should be pressed together, if the initial temperature of the sheets (and the ad- 
hesive) 15 30°С. For plastic sheets, k = 0.25 W/m-K, C = 2,000 J/kg-K, and 
p = 1,300 kg/m’. 


Solution 

In this problem, we measure x from the edge of one of the sheets as shown. We 
divide the domain of 10 mm such that Ax — 2 mm. This will yield seven grid 
nodes, as shown in Figure 2.5. Note that the distance between nodes 1 and 2 and 
that between 6 and 7 will be 1 mm. In this problem, area А 15 constant and may 
be assigned value of 1 m? (say). Also, since there is no internal heat generation, 


^ The USER file for this problem is given in Appendix B. 
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Table 2.1: Explicit procedure with At — 10 s (stable). 











Time 0 mm 1mm 3 mm 5 mm 7 mm 9 mm 10 mm 
0 250 30 30 30 30 30 250 
10 250 135.7 30 30 30 135.7 250 
20 250 165.3 55.43 30 55.43 165.3 250 
30 250 179.6 75.72 42.22 75.22 179.6 250 
40 250 188.5 92.5 58.33 92.5 188.5 250 
50 250 195.0 107.4 74.82 107.4 195.0 250 
60 250 200.4 120.6 90.5 120.6 200.4 250 
70 250 205.1 132.6 105.0 132.6 205.1 250 
80 250 209.3 143.4 118.3 143.4 209.3 250 
90 250 213.0 153.2 130.3 153.2 213.0 250 
100 250 216.4 162.1 141.3 162.1 216.4 250 





q” = 0. We solve this problem by an explicit method (yy = 0) and employ the IOCV 
method.? 

We now note that م‎ 4; Ax; C = 1,300 x 1 x 0.002 x 2,000 = 5,200, AW; = 
0.25 x 1/0.001 = 250, AW; —0.25 x 1/0.002— 125 for i=3 to N—1, 
AEy.1 = 0.25 x 1/0.001 = 250, and AE; = 0.25 x 1/0.002 = 125 for i = to 
N — 2. Therefore, the applicable discretised equations are 




















224 T; = 250 T? + 125 T? + E 一 375) Т?, (2.33) 
At At 
ל‎ Т, = 125 TRO) (229 3 2 т, 39 
for i = 3, 4, and 5 and 
E Ту-1 = 125 Т9, + 250 Ts 十 (229 一 375) 18. (235) 


Finally, the boundary conditions are 7; = 250 and Ty = 250. These conditions 
apply because it is assumed that when the sheets are pressed, the thermal contact 
between the sheets and the pressing surface 15 perfect. 

This set of discretised equations dictates that At must be less than 5,200/375 = 
13.87 s (see Equation 2.32). We therefore carry out two sets of computations, one in 
which At = 10 s (see Table 2.1) and another in which At = 20s, so that the stability 
condition is violated (see Table 2.2). In both cases, computations are stopped when 
T4 (x = 5 mm) exceeds 140°C. 

Table 2.1 clearly shows monotonic evolution of temperature within the sheets 
and thus accords with our expectation. The time for which the two sheets should 


5 Note that because in this problem КА is constant, the coefficients AE;, AW;, and AP, will be 
identical in both the IOCV and TSE methods. 
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Table 2.2: Explicit procedure with At — 20 s (unstable). 








Time Omm 1mm 3mm 5 mm 7 mm 9mm 10mm 


0 250 30 30 30 30 30 250 
20 250 241.5 30 30 30 241.5 250 
40 250 148.0 7 30 131.7 148.0 250 
60 250 238.3 90.63 127.8 90.63 238.3 250 
80 250 178.6 179.5 92.05 179.5 178.6 250 

100 250 247.7 1370 176.1 137.0 247.7 250 








be pressed together can be determined by interpolation as (t — 90)/(100 — 90) — 
(140 — 130.33)/(141.31 — 130.33) oratt = 98.8 s. This calculated time, of course, 
need not be considered accurate. Its accuracy can be ensured by repeating calcu- 
lations with increasingly smaller Ax (increasingly greater number of nodes) and 
by taking ever smaller values of At. Further, note that the temperature distribu- 
tions at any time ¢ are symmetric about x = 5 mm. This is because of the sym- 
metry of the boundary and the initial condition. Now, unlike in Table 2.1, the 
results presented in Table 2.2 show zigzag or nonmonotonic evolution of temper- 
ature. For example, at any x, the temperature first rises (as expected) and then 
falls (against expectation). In fact, the reader is advised to carry the computations 
well beyond 100 s or with larger values of At. Then, it will be found that the 
evolved temperatures will show even more unexpected trends. That is, the interior 
temperatures will exceed the bounds of 30°C and 250°C. Clearly, this is in vio- 
lation of the second law of thermodynamics. Results of Table 2.2 are, therefore, 
unacceptable. 


2.5.2 Partially Implicit Procedure 0 > у > 1 


In this case, if the condition of positiveness of ће coefficient of Ту is invoked then 
At must obey the following constraint: 


At «| pue | | (2.36) 
(1 — w) (AE; + АЙ) 1 





However, computations of the previous problem will show that stable (monotoni- 
cally evolving) solutions can be obtained even with 


AV; C?‏ م 
At <‏ 
V)(AE; + AW;)‏ 2 - 1( 





| fo w<0.5, (2.37) 


and, for y > 0.5, At can be chosen without any restriction. Clearly, therefore, 
condition (2.36), though valid, is too restrictive on the time step. The reader 
will appreciate this matter by solving Exercise 29. The more rigorous proof 
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Figure 2.6. Implicit procedure. 


can be developed by carrying out the stability analysis described in the next 
chapter. 


2.5.3 Implicit Procedure vy = 1 
In this case, Equation 2.28 will read as 


AV; C? 

АЕ, + ат) T; = AE; Тр + AW; Tii +9; АЙ‏ + م 
АРС?‏ 

— T$. 2.38 

ъ= сы (2.38) 

This equation is implicit because the RHS also contains reference to tempera- 
tures at the new time step. Further, note that the multiplier of 7,° is always positive 
and, therefore, Equation 2.38 is unconditionally stable irrespective of the time step. 
The situation of Equation 2.38 is shown in Figure 2.6. Because of its implicitness, 
Equation 2.38 must be solved iteratively, so that we may write 

APT = AE; TH] + AW, THI +S, 1=2,3,...,N—-1, (2.39) 
where / is the iteration number. 

Now, in the IOCV method, the condition of convergence (2.29) is always satisfied 
because the A P coefficient is the largest (see Equation 2.38) and condition (2.30) is 
satisfied at the boundary node. Also, АЕ and AW are always positive (see Equations 
2.25 and 2.26). 

The overall procedure can thus be described through the following steps: 


Specify T? fori = 1 to N and set T; = Т. 

Begin a new time step. Choose Af. 

Solve Equation 2.39 to obtain 7/7. 

Check convergence by calculating the fractional change FC; = ( Т} ao 

туут. 

5. If FC; мах > convergence criterion (CC) go to step 3 by setting T = p else, 
go to step 6. 

6. Set T? — T; and go to step 2. 


p pos‏ حم 
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Table 2.3: Implicit procedure with At — 10 s. 








Time Omm 1mm 3 mm 5 mm 7 mm 9 mm 10 mm 


0 0 30 30 30 30 30 250 
10 250 92.96 4079 33.50 40.79 92.96 250 
20 250 131.6 55.5 40.65 55.5 131.6 250 
30 250 156.2 71.04 50.531 71.04 156.2 250 
40 250 172.6 86.07 62.06 86.07 1726 250 
50 250 184.1 100.1 74.41 100.1 1841 250 
60 250 192.5 112.9 86.92 112.9 1925 250 
70 250 199.1 124.7 99.19 124.7 1991 250 
80 250 204.4 1354 110.9 1354 2044 250 
90 250 2089 1452 1221 145.2 2089 250 

100 250 213.3 154.2 1320 1542 213.3 250 
110 250 216.1 162.2 142.1 1622 2161 250 








The specification of procedural steps is called an algorithm. To illustrate the al- 
gorithm, we again consider Problem 1. Then, using the IOCV method, the equations 
to be solved are 
5,200 

At 





5.200 
D +375 | Ъ› = 25071 + 1255 + То, (2.40) 


5,200 5,200 


(2.41) 





5,200 5,200 
( Td 375) Тул = 125 Ty-2 +250 Ty TE TR (2.42) 


It is now possible to cast our algorithm in the form ofa computer program. This 
matter is taken up in a later section. Here, results of computations with At = 10 
and 20 s are presented in Tables 2.3 and 2.4, respectively. 


Table 2.4: Implicit procedure with At — 20 s. 








Time Omm 1mm 3mm 5 mm 7 mm 9mm 10mm 


0 0 30 30 30 30 30 250 
20 250 121.6 55.52 42.51 55.52 121.6 250 
40 250 164.7 84.10 6290 8410 164.7 250 
60 250 184.5 109.9 84.94 109.9 1845 250 
80 250 201.2 131.9 108.5 1319 2012 0 

100 250 2104 1504 1 1504 210.4 0 
120 250 217.2 166.0 1471 1660 2172 250 








2.6 MAKING CHOICES 


From the computed results, we make the following observations: 


1. The temperature evolutions are monotonic irrespective of the time step since 
there is no restriction on the time step in the implicit procedure. 

2. With At = 10s, the time for pressing is evaluated at 107.81 sand with At = 20s 
at 112.09 s. Again these times are not necessarily accurate. Accuracy can only 
be established by repeating computations with ever smaller values of At and 
Ax till the evaluated total time is independent of the choices made. 

3. Comparison of results in Table 2.3 with those in Table 2.1 shows that temperature 
evolutions calculated by the implicit procedure are more realistic. Note, for 
example, that 74 in the explicit procedure does not even recognise that heating 
has started for the first 20 s. Of course, this lacuna can be nearly eliminated by 
taking smaller time steps. 

4. For the same time step, the explicit procedure reaches 74 = 140 in 10 time 
steps. The implicit procedure has, however, required 11 time steps. In addition, 
at each time step, a few iterative calculations have been carried out. Thus, 
in this example, the implicit procedure involves more arithmetic operations 
than the explicit procedure. This, however, is not a general observation. When 
Ax and Af are reduced to obtain accurate solutions, or when coefficients AE 
and AW are not constant but functions of temperature (through temperature- 
dependent conductivity, for example), or when q” = q” (T) is present, one 
may find that an implicit procedure may yield more economic solutions than the 
explicit procedure because the former enjoys freedom over the size of the time 
step. 


2.6 Making Choices 


In the previous two sections, we have introduced TSE and IOCV methods as well as 
explicit and implicit procedures. Here, we offer advice on the best choice of combi- 
nation, keeping in mind the requirements of multidimensional problems (including 
convection) to be discussed in later chapters. Further, we also keep in mind that 
coefficients AE and AW are in general not constant. This makes the discretised 
equations nonlinear. 


1. Note that the TSE method casts the governing equations in non-conservative 
form whereas the IOCV method uses the as-derived conservative form. As we 
shall observe later, this matter 15 of considerable physical significance when 
convective problems are considered. 

2. In the TSE method, coefficients AE and AW carry little physical meaning. In 
the IOCV method, they represent conductances. 

3. In the TSE method, Scarborough's criterion may be violated. In the IOCV 
method, this can never happen. 


31 


32 


1D HEAT CONDUCTION 


4. The question of invoking explicit procedure arises only when unsteady-state 
problems are considered. The implicit procedure, in contrast, can be invoked 
for both unsteady-state as well as steady-state problems. In fact, in steady-state 
problems (At = оо) the implicit procedure is the only one possible. 

5. The explicit procedure imposes restriction on the largest time step to obtain 
stable solutions. The implicit procedure does not suffer from such a restriction. 


In view of these comments, the best choice is to employ the IOCV method with 
an implicit procedure. Throughout this book, therefore, this combination will be 
preferred. 


2.7 Dealing with Nonlinearities 


Now that we have accepted a combination of IOCV with the implicit procedure, we 
restate the main governing discretised equation (equations 2.38 and 2.39) but in a 
slightly altered form: 


(AP, + Sp) T! = AE; TH + AW, T1 + Su; i—2,3,..., N— 1, 








1 十 1 
(2.43) 
AP; = AE; + АЖ, (2.44) 
kA 
AE; = — | (2.45) 
Ах i412 
kA 
АЙ, = £ , (2.46) 
Ах |; כ‎ 
AV; C? AV; C” 
ims = a fya A (2.47) 
At At 


n 


In these equations, the q” term is deliberately ignored because it is a problem- 
dependent term. The altered form shown in Equation 2.43 will be useful in dealing 
with nonlinearities. Also, a generalised computer code can be constructed around 
Equation 2.43 in such a way that preserves the underlying physics. The nonlinearities 
can emanate from three sources: 


1. if q" is a function of T 

2. ifconductivity kis a function of T or changes abruptly, as in a composite material 
and/or 

3. boundary conditions at x — 0 and x — L. 


6 Some analysts employ an explicit procedure even for a steady-state problem. In this case, calcu- 
lations proceed by introducing a false or imaginary time step. Hence, such procedures are called 
false transient procedures. 


2.7 DEALING WITH NONLINEARITIES 


In the following, we discuss methods for dealing with nonlinearities through 
modification of Su; and Sp;. 


2.7.1 Nonlinear Sources 


Consider a pin fin losing heat to its surroundings under steady state by convection 
with heat transfer coefficient Л. Then, q” will be given by 
hi P; Axi (Ti — Too) 


" = А 2.48 
Я; A AS: (2.48) 





where P; is the local fin perimeter. Therefore, 
di AV, = —h; P; Axı (Ti — Т): (2.49) 


When this equation is included in Equation 2.43, it is obvious that T; will now 
appear on both sides of the equation. One can therefore write the total source term 
as 


Source term = Su; + h; P; Ах; (Too — T;). (2.50) 
This prescription can be accommodated by updating Su; and Sp; as 


Sui = Sui + hi P; AX; Too; 
Spi = Sp; + hi P; Ах;, (2.51) 


where Su; and Sp; on the RHSs are the original quantities given in Equation 2.47. 

Note that, in this case, the updated Sp; is positive and, therefore, there is no 
danger of rendering АР; + Sp; negative. Thus, Scarborough’s criterion cannot be 
violated. However, if we considered dissipation of heat due to an electric current or 
chemical reaction (as in setting of cement) then, because heat is generated within 
the medium, q;” = a + b T7", where b is positive. In this case, Su; = Su; + a AV; 
and Sp; = Sp; — b T"! AV;. But now, there is a danger of violating Scarbor- 
ough’s criterion and, therefore, one simply sets Su; = Su; + "أن‎ AV; and Sp; is not 
updated. 

Accounting for the source term in the manner of Equation 2.51 is called source 
term linearization [49]. We shall discover further advantages of this form when 
dealing with the application of boundary conditions. 


2.7.2 Nonlinear Coefficients 


Coefficients A E; and AW; can become functions of temperature owing to thermal 
conductivity as ink = a + b T + c T°. Thus, k;+1/2 in AE; (see Equation 2.45), 
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MATERIAL K) | MATERIAL K, 








i=] i i+l i i+ 2 1+1 





i+ 1/2 


Figure 2.7. Interpolation of conductivity. 


for example, may be evaluated in two ways: 
Емо = 0 + 2 То +6 T sn Tij = 0.5 (T; + Tj41) (2.52) 
or 
Kui = 0.5 ()א]‎ + (Т1) ]. (2.53) 


Both of these representations are pragmatically acceptable but neither can be 
justified on the basis of the physics of conductance. To illustrate this point, let us 
consider a composite medium consisting of two materials with constant conduc- 
tivities kı and ky (see Figure 2.7). In this case, we lay the grid nodes i and i + 1 
in such a way that the cell face i + 1/2 coincides with the location where the two 
materials are joined. Thus, there is a discontinuity in conductivity at the i + 1/2 
location. 

Now, in spite of the discontinuity, the heat transfer Q;+1/2 on either side of 
i + 1/2 must be the same. Therefore, 


a= Tap 


у = )2.54( 
Xi41/2 — Xi 


Qi = | 2 


Tuo. 
Quan = ke Аца A К = ka. (2.55) 
Xi 二 1 一 Xi41/2 


Eliminating 7; 1/2 from these equations gives 





Xi+1/2 — Xi + Xi 十 1 一 Xi+1/2 


=] 
Т; — Т). (2. 
k Dm | ( +1). (2.56) 


Qiu = 2 | 


We recall, however, that our discretised equation was derived on the basis of 
linear temperature variation between nodes i and i * 1 (see Equation 2.21). This 
implies that 


kay (Ti 一 Ты). (2.57) 
i+1/2 


0 _ 4 
пр = AX 





2.7 DEALING WITH NONLINEARITIES 


Comparing Equations 2.56 and 2.57, leads to 





(2.58) 


—1 
Xi+1/2 — Xi repas | 
ki 1 


уо = 2 | 


If the cell face were midway between the nodes then this equation would read as 


1 | 7 
baie жд sae. |, 2.59 
ш Е T kii | ١ ) 


These equations suggest that the conductivity at a cell face should be eval- 
uated by a harmonic mean to accord with the physics of conductance. We shall 
regard this as a general practise and extend it to the case when thermal conduc- 
tivity varies with temperature. Thus, instead of using either Equation 2.52 or 2.53, 
Equation 2.58 will be used with k; and k;}ı evaluated in terms of temperatures 
T; and Ti+1, respectively. Further, note that if conductivity is constant, kj+1/2 = 
ki = К. 


2.7.3 Boundary Conditions 


In practical problems, three types of boundary conditions are encountered: 


1. Boundary temperatures Т and/or Ty are specified. 
2. Boundary heat fluxes qı and/or qx are specified. 
3. Boundary heat transfer coefficients Л | and/or A y are specified. 


Our interest in this section lies in prescribing these boundary conditions by 
employing Su and Sp for the near-boundary nodes. 


Boundary Temperature Specified 
For the purpose of illustration, consider the i = 2 node, where 7| is specified. Then, 
Equation 2.43 will read as 


(AP) + Sp) ТІ"! = AE Ty"! + AW; T) + Sun, (2.60) 
where Su» and Sp» are already updated to account for any source term. Equation 
2.60 can be left as it is but we alter it via a three-step procedure in which we set 


Su» = Su» + 4775 T), 
Sp2 = Sp; + AW», 
AW, = 0.0. (2.61) 
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d, 





оф 
оф 


Figure 2.8. Flux boundary condition. 


With this specification, Æ P) will now equal АЕ» because AW, is set to zero, 
but the coefficient of 7. ze remains intact because Sp; has been updated. Thus, 
the boundary condition specification is accomplished by snapping the boundary 
connection in the main discretised equation. 


Heat Flux Specified 
Let heat flux gl be specified at x = 0 (see Figure 2.8) Then, temperature 7| is 
unknown and heat transfer will be given by 





01 = 4141 = AW;(Ti — Th), )2.62( 
А191 

Ту = Т». 2.63 

1 AW; + 2 ( ) 


From Equation 2.60, it is clear that one can apply the boundary condition by 
employing the following sequence: 


1. Calculate Ту from Equation 2.63. 
2. Update Su» = Su» + 41 qı and Sp; = Sp; + 0. 
3. Set AW; = 0. 


The qgy-specified boundary condition can be similarly dealt with by altering 
AE y..4 and Suy. 4. 


Heat Transfer Coefficient Specified 
In this case, let лу be the specified heat transfer coefficient (see Figure 2.8 again) 
and let T% be the fluid temperature adjacent to the surface at x = 0. Then, 


Qi = 4191 = Athi (To, — Т) = AMW: (Ti — Р). (2.64) 
Therefore, 


T= T» + ) رك‎ hı АИ) Т» 
= 1+ (Ua /AW;) 





)2.65( 


2.7 DEALING WITH NONLINEARITIES 


In this case, the boundary condition can be implemented via the following steps: 


1. Calculate Ту from Equation 2.65. 
2. Update 





1 1°]! 
and Su = из +] + | Togs 


1 —1 
Sp = 5 NM Le 
p2 mtl 二 + 


3. Set AW, = 0. 


Thus, for all types of boundary conditions, we are able to find appropriate Su 
and Sp augmentations and then set the boundary coefficient of the near-boundary 
node (AW, in our examples) to zero. The usefulness of this practise will become 
apparent when we consider the issue of convergence enhancement of the iterative 
solution procedures of 2D equations in Chapter 9. 


2.7.4 Underrelaxation 


In a nonlinear problem, if k and/or q” are strong functions of temperature then, in 
an iterative procedure, as the temperature field changes, the coefficients AP, AE, 
and AW and the source $ may change very rapidly from iteration to iteration. In 
such highly nonlinear problems, the iterative solution may yield oscillatory or erratic 
convergence or may even diverge. Therefore, it is desirable to restrict the changes in 
temperature implied by Equation 2.43. Such a restriction 1s called underrelaxation. 
It can be effected by rewriting Equation 2.43 as 
а [AE TH] + AW; TH + Sui] 


TH = DI i 十 (1 — o) 77, (2.66) 





where 0 > o < 1.Ifo = 1,nounderrelaxation will be effected. Ifa = 0, no change 
will be effected, therefore, this case is not of interest. The underrelaxation can be 
effected without altering the structure of Equation 2.43 by simply augmenting Su 
and Sp before every iteration. Thus, 





(1-а) 
0 


Su; = 8и; + (АР, + Spi) Т}, (2.67) 


de 


a 


Sp; = Spi + 2 (АР; + Spi). (2.68) 





If the coefficients AE; and AW; were constants and not functions of T then it is 
also possible to take 1 « o < 2. This 15 called overrelaxation. Typically, compared 
to the case of ₪ = 1, the convergence rate with overrelaxation is faster up to a 
certain optimum Qopt, but for о > оо, the convergence rate again slows down, so 
much so that it may be even slower than that with о = 1. The magnitude of wopt 15 
problem dependent. 
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2.8 Methods of Solution 


When coefficients A E;, AW;, and AP; are calculated and Su; and Sp; are suitably 
updated to account for the effects of source linearization, boundary conditions, and 
underrelaxation, we are ready to solve the set of equations (2.43) at an iteration 
level / -- 1. There are two extensively used methods for solving such equations. 


2.8.1 Gauss-Seidel Method 


The Gauss-Seidel (GS) method is extremely simple to implement on a computer. 
The main steps are as follows: 


1. At a given iteration level /, calculate coefficients AE, AW, AP, Su, and Sp 
using temperature 7’ fori = 2 to N — 1 
2. Hence, execute a DO loop: 


100 FCMX = 0 
DO 1 I = 2, №1 


TL = T(T) 

ANUM = AE(I)*T(I+1) + АМ(І)*Т(1-1) + SUCI) 
ADEN = AECI) + АМ(І) + SP(I) 

TCI) = ANUM / ADEN 


FC = (TCI) - TL) / TL 
IF (ABS(FC).GT.FCMX) FCMX = ABS(FC) 
1 CONTINUE 


3. If FCMX > CC, go to step 1. 


The method is also called a point-by-point method because each node i is visited 
in succession. The method is very reliable but requires a large number of iterations 
and hence considerable computer time, particularly when N is large. 


2.8.2 Tridiagonal Matrix Algorithm 


In the tridiagonal matrix algorithm (TDMA), Equation 2.43 is rewritten as 


nod ה‎ + Лү de (2.69) 
where 
AE; AW; 5и; 
ai = ——"_, ше eS = ادم‎ 
AP; + Spi AP; + Spi AP; + Spi 


Note that since Sp; > 0,a; and b; can only be fractions. Equation 2.69 represents 


(N — 2) simultaneous algebraic equations. In matrix form, these equations can be 
written as [A] [T] = [C], where the coefficient matrix [A] will appear as shown 


2.8 METHODS OF SOLUTION 





2 3 4 5 6 7 8 9 10 N-1 
2 zx 
1 ay 0 0 0 0 0 0 0 0 T, 
3 —b М, 
3 1 -аз 0 0 0 0 0 0 0 T3 
4 0 0 0 0 0 0 0 
š 0 6 0 0 0 6 0 
0 
6 0 0 0 —bi 1 一 ai 0 0 0 T; 
7 0 0 0 0 
0 0 0 б 
9 0 0 0 0 
10 0 0 0 0 
= = 1 
N-1] 0 0 0 0 0 0 0 0 b ואד א‎ 














Figure 2.9. Diagonally dominant matrix [A]. 
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in Figure 2.9. Notice that ће coefficient of 7; occupies the diagonal position of 
the matrix with —a; and —b; occupying the neighbouring diagonal positions. АП 
other elements of the matrix are zero. The matrix [A] thus has diagonally dominant 


tridiagonal structure. This structure can be exploited as follows. Let 
T=ATn+B, i=2,...,N—1. 
Then 
Ti_1= ررك‎ T; + Bie 


Now, substituting this equation in Equation 2.69, we can show that 


T= а 4 bi Bii + ci 
' 4 | а= ада 


Comparison of Equation 2.73 with Equation 2.71 shows that 
а; 


A; = 一 一 一， 
1 — bi Aj-1 


_ Di B4 E 


B = 一 -一 一. 
I= b; Ay 


(2.71) 


(2.72) 


(2.73) 


(2.74) 


(2.75) 
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Thus, 4; and B; can be calculated by recurrence. The implementation steps are 
as follows: 


1. Prepare a;, b;, and c; fori = 2 to N — 1 from knowledge of the p distribution. 

2. From comparison of Equations 2.69 and 2.71, set 4» = a» and By = c? (because 
b2 = 0 via the boundary condition specification). Now evaluate A; and B; for 
i = 3to N — 1 by recurrence using Equations 2.74 and 2.75. 

3. Evaluate 7; by backwards substitution using Equation 2.71, that is, from 
i = N — to 2. Note that since we prescribe boundary conditions such that 
AEy_, = 0, it follows that Ау = 0. 

4. Evaluate fractional change as before and go to step 1 ifthe convergence criterion 
is not satisfied. 


The TDMA is essentially a forward elimination (implicit in the recurrence 
relations) and backward substitution procedure in which temperatures at all i are 
updated simultaneously in step 3. Hence, the TDMA is also called a /ine-by-line 
procedure to contrast it with the point-by-point GS procedure introduced earlier. 
Further, we note that if ,ره‎ b;, and c; were constants and not functions of T then 
the TDMA would yield a solution in just one iteration whereas the point-by-point 
procedure would require several iterations even when coefficients are constants. 


2.8.3 Applications 


To illustrate performance of the methods just described, we consider two steady- 
state problems.’ 


Problem 2 — Rectangular Fin [80] 

A rectangular fin of length 2 cm, thickness 2 mm, and breadth 20 cm is attached 
to a plane wall as shown in Figure 2.10. The wall temperature Tw = 225°C 
and ambient temperature 7,, = 25°C. For the fin material, k = 45 W/m-K and 
the operating Л = 15 W/m?-K. Determine the heat loss from the fin and its 
effectiveness. Assume the tip heat loss to be negligible. 


Solution 
The exact solution to this problem is 
T — Tx coshm (L — x) 


= ; oss = VA P kA (Tw — To.) tanh(m L), 
Ty = T% coshm L Qı ( о 





(2.76) 


where m = ~h P / КА. In our problem, perimeter Р = 2 x 20 = 40 ст, area A = 
20 x 0.2 = 4ст2, and L = 2 cm. Therefore, m = 18.257m7! and Ор» = 23 W. 


7 The USER files for these problems are given in Appendix B. 
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Plane wal 


All Dimensions in cm 





Figure 2.10. Rectangular fin — Problem 2. 


To obtain a numerical solution, let us take N = 7 so that we have five control 
volumes of length Ax = 0.4 cm. Thus, we have a uniform grid. Using definitions 
(2.25) and (2.26), it follows that A Wz = 45 x 4 x 10-4/0.002 = 9 and AW; = 4.5 
for i = 3 to 6. Similarly, AE; = 4.5 for i = 2 to 5 and АЕК; = 9. The boundary 
conditions are 7; = 225 and q7 = 0 (negligible tip loss). 

Further, Su; = h; P Ax; Tx. = 15 x 0.4 x 0.004 х 25 = 0.6 and Sp; = 15 x 
0.4 х 0.004 = 0.024. Now, from an equation such as (2.63), 77 = 0 + Te = To. 
Thus, our discretised equations are 


Ту = 225, 
[9 + 4.5 + 0.024] 75 = 4.5 3 + 9 + 0.6, 
[4.5 + 4.5 + 0.024] T; = 4.5 31 + 4.5 1 + 0.6, = 5 
[4.5 + 0.024] 7% = 4.5 75 4- 6 
T; = Ts. 


In this problem, the conductivity, area, perimeter, and heat transfer coefficient 
are constants. Therefore, coefficients A E; and AW; do not change with iterations. 
Thus, after carrying out the developments of Section 2.7.3, itis possible to construct 
a coefficient table. The relevant quantities are shown in Table 2.5. 

The solutions obtained using the GS method are shown in Table 2.6. No 
underrelaxation 15 used. Entries for / — 0 indicate the initial guess for tempera- 
tures (assuming a linear variation). At subsequent iterations, maximum fractional 
change (FCMX) reduces monotonically from 0.01 at / = 1 to 0.000092 at / = 24. 
The convergence criterion was set at 107^. The converged solution compares 
favourably with the exact solution although only five control volumes have been 
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Table 2.5: Coefficients in the discretised 
equation - Problem 2. 











i 2 3 4 5 6 
AW; 0 4.5 4.5 4.5 4.5 
AE; 4.5 4.5 4.5 4.5 0 

Su; 2025.6 0.6 0.6 0.6 0.6 
SDi 9.024 0.024 0.024 0.024 0.024 





used. Greater accuracy can be obtained with finer grids; however, this will require 
more computational effort. 

From the converged solution, the fin heat loss is estimated as Оо; = AW» x 
(Tj — Т) = 9(225 — 222.42) = 23.26 W. This also compares favourably with the 
exact solution already mentioned. 

Table 2.7 shows the execution of the same problem using TDMA. The table 
shows values of А; and B; derived from Table 2.5 and Equations 2.74 and 2.75. Since 
these are constants, solution is now obtained in only one iteration. Also, the initial 
guess becomes irrelevant. The estimated heat loss is Ою» = 9 (225 — 222.45) = 
22.967 W. 

Thus, compared to GS, the TDMA procedure is considerably faster. Experience 
shows that this conclusion is valid even in nonlinear problems. For this reason, the 
TDMA is the most preferred solution procedure in generalised codes. 


Problem 3 — Annular Composite Fin 

Consider an annular fin put on a tube (of outer radius rı = 1.25 cm), as shown 
in Figure 2.11. The fin is made from two materials: The inner material has radius 
12 = 2.5 cm and conductivity k; = 200 W/m-K and the outer material extends 
to radius r3 = 3.75 cm and has conductivity k = 40 W/m-K. The fin thickness 
t = | mm. The tube wall (and hence the fin base) temperature is 7; = 200°C. The 


Table 2.6: Solution by Gauss-Seidel method - Problem 2. 











1 FCMX Ост 0.2cm 06cm 1.0 ст 1.4cm 1.8 ст 2.0 ст 
0 225 223 219 215 211 207 205 
1 0.01 225 222.65 218.31 214.15 210.08 209.1 209.1 
2 0.0034 225 222.42 217.77 213.44 210.77 209.78 209.78 
3 


0.0021 225 222.24 217.32 213.54 211.16 210.18 210.18 


22 0.00012 225 222.41 218.28 215.22 213.19 212.19 212.19 
23 0.00011 225 222.41 218.30 215.24 213.21 212.21 212.21 
24 0.000092 225 222.42 218.31 215.25 213.23 212.23 212.23 
Exact — 225 222.58 218.52 215.531 213.49 21249 212.37 
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Table 2.7: Solution by TDMA - Problem 2. 











2 1.8 14 1.0 0.6 02 0 (חס)א 
А; m 0333 0.5988 0711 0.72 00 3‏ 
В; — 149.78 89.628 63.776 49.357 212375 —‏ 


]=1 225 22245 21840 215.38 213.37 21237 212.37 
Exact 225 222.58 21852 215.51 213.49 21249 21237 





fin surface experiences heat transfer coefficient h = 20 W/m?-K and the ambient 
temperature is T% = 25°C. Assuming conduction to be radial, estimate the heat 
loss from the fin and the fin effectiveness. Neglect heat loss from the fin tip. 


Solution 

In this problem, if the origin x — 0 is assumed to coincide with the base of the 
fin, then at any radius r, area A = 27 r t = 2л (rı + x)t and perimeter P = 2 x 
(2x r) = 2 х [2л (ri + x)]. The multiplication factor 2 in P arises because the fin 
loses heat from both its faces. Further, since the fin material is a composite, grids 
must be laid such that the cell face coincides with the location of the discontinuity 
in conductivity. Therefore, we adopt practise B and specify cell-face coordinate (xe) 
values. Choosing N — 8 and equal cell-face spacings, we have six control volumes 
of size Ax = (rs — ri)/(N — 2) = 0.4167 cm. This grid specification provides 
three control volumes in each material. The boundary conditions at the fin base 
and fin tip are T (1) = 200 and gy = 0, respectively. Finally, the heat loss from the 
fin is accounted for in the manner of Equations 2.51. 






MATERIAL K, 


MATERIAL K, 








ANNULAR 
FIN 


1 


1 


Figure 2.11. Annular fin of composite material - Problem 3. 
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Table 2.8: Solution by TDMA (N — 8) - Problem 3. 











xx 102 0 2.083 6.25 10.417 1458 18.75 22.917 25.0 
Ax10 7.845 7.845 10.5 13.1 15.7 18.3 20.9 23.6 
T 200 196.7 192.43 4 183.38 177.39 174.63 174.63 





The predicted temperature distribution in the fin is shown in Table 2.8 and plotted 
(open circles) in Figure 2.12. From the table, the heat loss О = - 2 A ƏT א0/‎ |x=0 = 
—200 x 7.845 x 10-5 (196.7 — 200)/2.083 x 10-3 = 24.86 W. To evaluate fin 
effectiveness, the maximum possible heat loss from the fin is evaluated from 
2xhx n (r — r?) x (To — Т») = 27.49 W. Therefore, the predicted effective- 
ness Ф = 24.86/27.49 = 0.9046. 

To carry out the grid-independence study, computations are repeated for М = 16 
and N — 32. These results are also plotted in Figure 2.12. The figure shows that 
results for N = 16 (open squares) and N = 32 (solid line) almost coincide. Thus, 
in this problem, results obtained with N = 16 may be considered quite accurate 
for engineering purposes. This is also corroborated by the computed О and Ф for 
the two grids. For N = 16, the computed results are О = 24.933 and Ф = 0.907; 
for М = 32, they are О = 24.941 and Ф = 0.9073. Note also the change in the 


























X (meters) 
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Figure 2.12. Variation of temperature with X — Problem 3. 


2.9 PROBLEMS FROM RELATED FIELDS 


slope of the temperature profile at the point of discontinuity (x — 0.0125 m) in 
conductivity. Finally, by assigning different values to k2, ks, r2, r3, and 7, it would 
be possible to carry out a parametric study to aid optimisation of fin volume and 
economic cost in a separate design study. 


2.9 Problems from Related Fields 


Quite a few problems from the fields of fluid mechanics, convective heat transfer, 
and diffusion mass transfer are governed by equations that bear similarity with 
Equation 2.5. Only the dependent variable, the coefficients, and the source term 
need to be interpreted appropriately. We discuss such problems next. 


Fully Developed Laminar Flow 
Steady, fully developed laminar flow in a tube is governed by 


0 0 d 
(uan 5 一 27r7 ₪ 0, )2.77( 
r 


where и is velocity parallel to the tube axis and the pressure gradient is a negative 
constant. Since velocity и is directed in the z direction, it can be treated as a scalar 
with respect to the r direction. Comparison with Equation 2.5 shows that T = u, 
дх = ðr, A = 2nr,k = u,andq" = —d p/dz.Foracirculartube,u = Oatr = R 
(tube radius) and ди /дг = 0 at the tube axis r = 0. Equation 2.77 is also applicable 
to an annulus with boundary conditions u = 0atr = R; andr = R,. Similarly, the 
equation is applicable to flow between parallel plates if we set 4 = 27 = 1 and 


дх = дг = ду, where y is measured from the symmetry axis. 








Fully Developed Turbulent Flow 
In this case, 1f Boussinesq approximation 15 considered valid then the axial velocity 
is governed by 


0 ди dp 
— 277 一 1 一 27r7 — = 0), 2.78 
or furw d ב‎ TT az 0 
where the turbulent viscosity ut = م‎ 12| 24| with 
yt y 
k y | 1—exp -% for 2 «yr 
— (2.79) 
0058 for > yy, 


where א‎ = 0.41, y= R—r, yj 0.2, and yt = y./ty/o/v with т, the shear 
stress at the wall (i.e., т, = и 9 ע0/‎ |,—0). Clearly, Equation 2.78 can be solved 
iteratively by estimating the turbulent viscosity distribution from the velocity 
gradient. 
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Fully Developed Heat Transfer 
The equation governing laminar fully developed heat transfer in a tube is given by 


0 oT oT 
— (юл a) —2mrpG,wug 0, (2.80) 


or or əz = 


where и = 2u (1 — r? / R°) or can be taken from the numerical solution of Equa- 
tion 2.77. Evaluation of dT /0z can be carried out from the boundary conditions at 
the tube wall as follows. 
Constant Wall Heat Flux: From the overall heat balance and from the condition 
of fully developed heat transfer [33], it can be shown that 
oT d Т 2 dw 


= = . 2.81 
д2 dz pC,uR P 





Therefore, Equation 2.80 can be written as 


д oT r r? 


Thus, if ðr is replaced by x, А by 2zr, and q” by — 4 (1 — r? /R?)qw/R, Equa- 
tion 2.82 is same as the steady-state form of Equation 2.5. 
Constant Wall Temperature: In this case, the condition of fully developed heat 
transfer implies that 
oT 


dT, 
— =(T, —%) —-(n-mn)X 
Jz (Tw — To) dz ( b) 


| 2k 8T für دما‎ 


коа (2.83) 
p 


where 7, is the mixed-mean or bulk temperature. Thus, by setting q” = 
—Ak/R(1 —r?/R?)(T, — Tj)! 8T /dr |,=r, Equation 2.80 is same as Equa- 
tion 2.5. However, 7, and 8T /ür |,-& must be evaluated at each iteration. The 
bulk temperature T, is evaluated as 


_ fo pCouT2nrdr 


Т T З 
[^ pC,u2nrdr 





(2.84) 


Thermal Entry Length Solutions 

Consider laminar flow between two parallel plates separated by distance 2b. When 
Pr >> 1, itis possible to obtain the variation of the heat transfer coefficient / with 
axial distance z by solving the following differential equation: 


0 ƏT oT 
Pm (i 2.) = pC, Ufd ——, (2.85) 
2 
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where 


3. y? 
иа = z” ( 一 5) (2.86) 


and y is measured from the symmetry axis. The initial condition is 7 — 7; atz — 0 
and the symmetry boundary condition is д7 /ду = 0 at y = 0. At у = b, however, 
T — Ty if both walls are at constant wall temperature, or, if constant wall heat 
flux is specified, then א‎ 9T /8y |y = qw. For this problem, if we set y = x, z =f, 
q” = 0, A = 1, and Сии = 1.57 )1 — y?/D?) C, then Equation 2.85 is the same 
as Equation 2.5 in which the unsteady term 15 retained. 


Diffusion Mass Transfer 
In a binary mixture of species i and j, the equation (in spherical coordinates) 
governing radial diffusion of j in a stationary medium i is given by 


д | оъ D4zr? до; 2 до; 
= 4 一 一 ， 2.87 
> | 6-00 ge] ف "ל"‎ 





where wj is the mass fraction of j in the mixture and D is the mass diffusivity. 
Thus, if we set dr = дх, А = 4r r?, К = pm D/(1 — оу), Cp = 1, T = and, 
q” = 0 then this equation is the same as Equation 2.5. To solve the equation, 
one will need boundary conditions at r — r; and r — r, and the initial condition 
at f = 0. Estimation of penetration depth during surface hardening of materials, 
estimation of leakage flow of gases from storage vessels, or estimation of burning 
rate of volatile fuel in still surroundings are some of the mass transfer problems 
of interest. The reader 1s referred to the unified formulation of the mass transfer 
problem by Spalding [72] and to the book by Gupta and Srinivasan [26]. 


EXERCISES? 


1. Show that the derivative expressions in Equation 2.21 are second-order accurate 
if the cell face is midway between adjacent nodes. 


2. A slab of thickness 2b is initially at temperature Tọ. At t = 0, the boundary 
temperatures at x = —b and +b are raised to 7, and maintained there. The 
exact solution for evolution of temperature in this case 15 given by 

T=, sin (А, Ё) j 
=? —— ——— cos (А, x)exp (—a A7 f) , 
To — Th х А b Qux) )م‎ nt) 
where A, b = (2n — 1)л/2. Hence, considering the data of Problem 1 in the 
text, write a computer program to determine the value of ¢ for the centerline 





8 All numerical problems given in these exercises can be solved by the generalised computer code 
given in Appendix B. 
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temperature to reach 140°C. What is the minimum value of required to obtain 
an accurate estimate of г? 


. Repeat Problem 1 from the text using both explicit and implicit methods by 


choosing N — 7, 12, and 22. Determine the largest allowable time step in the 
explicit case. Compare your solution for the time required for adhesion with 
the exact solution determined in the previous problem. 


. Evaluate Su ן- א‎ and Spy_, for an unsteady problem when Ty is specified as a 


function of time. Assume an arbitrary value of ү. 


. Consider a time-varying heat-flux-specified condition at i = 1. Hence, derive 


Su» and Sp» for arbitrary y. Confirm the validity of the three-step procedure 
following Equation 2.63 for y = 1. 


. Repeat Exercise 5 for a time-varying heat transfer coefficient boundary condi- 


tion. Hence, confirm the validity of the procedure following Equation 2.65 for 


у= 1. 


. Confirm the correctness of Equations 2.67 and 2.68. 
. Verify the entries in Tables 2.5 and 2.7 by carrying out the necessary 


calculations. 


. Develop a TDMA routine in which the postulated equation is 


T; = A; Tii + Bj. 


Consider a slab of width b = 20cm. Atx = 0, T = 100°C andatx = b,q = 1 
kW/m?. The heat generation rate is g” = 1,000 — 5 T W/m’. Calculate the 
steady-state temperature distribution with and without source-term linearisa- 
tion. Compare the number of iterations required in the two cases for N — 22 
and 42. Also calculate the heat flux at x = 0 and 7, and check the overall heat 
balance. Take k = 1 W/m-K. Use TDMA. 


Consider a nuclear fuel rod of length L and diameter D. The two ends ofthe rod 
are maintained at Tọ. The internal heat generation rate is q” = a sin(zx/L), 
where x 1s measured from one end of the rod and a is an arbitrary constant. The 
rod loses heat by convection (coefficient Л) to a coolant fluid at Т. 


(a) Nondimensionalise the steady-state heat conduction equation and identify 
the dimensionless parameters. [Hint: Define 0 = (T — T4,)/(To — Too), 
x* = x/L, Р, = aL?/k(Tg — Too), and P; = 4% L?/(k D).] 


(b) Compute the temperature distribution in the rod and compare with the exact 
solution for 0 < Ру, P; < 10. Use source-term linearisation and TDMA. 
Carry out an overall heat balance from the computed results 


(c) Solve the problem for P, = P; = 10 using different underrelaxation pa- 
rameters 0 > به‎ > 2 for N = 22 and N = 42. Determine wopt in each case. 
Use uniform grid spacing and the GS procedure. 
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T; 


Figure 2.13. Circumferential fin. 


12. 


13. 


14. 


15. 


Exploit the symmetry in Exercise 11 at L/2 and compute the temperature 
distribution over 0 < x < L/2. Compare the value of Туу with the exact 
solution. 


Consider the fin shown in Figure 2.13. The following are given: T% = 25°С, 
T; = 200°C, В = 2mm, L = 6mm, tube diameter D = 4mm, kg, = 40 W/m- 
K, h = 20 W/m?-K, and ^; = 200 W/n?-K. 


(a) Write the appropriate differential equation for steady-state heat transfer 
and the boundary conditions to determine the temperature distribution in 
the fin. 


(b) Discretise the equation assuming six nodes (four control volumes) and list 
AE, AW, Su, Sp, and AP for each node. 


(c) Evaluate the effectiveness of the fin. 


Consider a rod of circular cross section (L = 10 cm, 6 = 1 cm, = 1 W/m-K, 
p — 2,000 kg/m?, and C — 850 J/kg-K). The rod is perfectly insulated around 
its periphery. At t = 0, the rod is at 25°C. For t > 0, 1.20 = 25°C and T,=; = 
25 + t(s)°C. Compute temperature distribution in the rod as a function of x 
and 1 over a period of 15 min using y = 0, 0.5, and 1. Also determine q,—9 as 
a function of time and plot the variation. Take N = 22 and At = 5 s in each 
case. 


Consider a rod of circular cross section (L = 10 cm, d = 1 cm, = 1 W/m-K, 
p = 2,000 kg/m?, and C = 850 J/kg-K). The rod is initially at 600°C. The 
temperatures at the two ends of the rod are suddenly reduced to 100°C and 
maintained at that temperature. The rod is also cooled by natural convection 
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to surroundings at 25°C. If h = 3 (Тоа — T4)? W/m?-K, perform the 
following: 


(a) Compute the variation of Л with time at x = 5 cm and x = 9 cm over a 
period of 1 min. Take At = 1 s and y = 1 and use TDMA. 


(b) Compute the percentage reduction in the energy content of the rod at the 
end of 1 min. 


(c) Extend the calculation beyond 1 min and estimate the time required to reach 
near steady state. (Hint: You will need to specify a criterion for steady state.) 


Consider an unsteady conduction problem in which 7| is given. However, at 
x — L, the heat transfer coefficient is specified. By examining the discretised 
equation for a general node i, for node; = 2,andfornodei = N — 1, determine 
the stability constraint on At. Assume uniform control volumes, constant area, 
and conductivity with q” = 0 and y = 0. 


A semi-infinite solid is initially at 25°C. At t = 0, the solid surface (x = 0) is 
suddenly exposed 10 gy = 10 kW/m’. A thermocouple is placed at x = 1 mm 
to apparently measure the surface temperature. Compute the temperature distri- 
bution in the solid as a function of x and ¢ and estimate the error in the thermo- 
couple reading as a function of time. Carry out computations up to 1 s. Given 
are the following: k — 80 W/m-K, o — 7,870 kg/m?, and C — 450 J/kg-K. 
[Hint: The boundary condition at x = oo is T; = 25°C at all times. Choose 
sufficiently large L (say 1 cm) and execute with At = 0.01 s.] 


A laboratory built in the Antarctic has a composite wall made up of plaster 
board (10 mm), fibreglass insulation (100 mm), and plywood (20 mm). The 
inside room temperature is maintained at 7; — 293 K throughout. The plywood 
is exposed to an outside temperature 7, that varies with time 1 (in hours) as 


273 4- 5sin (+5) for dere 


fe 
273 + 30sin (41) for  12«t «24h. 


(a) Compute the heat loss to the outside over a typical 24-h period (1.e., under 
periodic steady state) in J/m?. 


(b) Plot the variation of interface temperatures between the plasterboard and 
the fibreglass and between the fibreglass and the plywood as a function of 
time. Assume: ^; = 15 W/m?-K апал, = 60 W/m?-K. Material properties 
are given in Table 2.9. 


Solve for fully developed laminar flow in a concentric annular (r* = К/К = 
0.6) duct. Compare the predicted velocity profile with the exact solution [33] 


iei Gm G)] 
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Table 2.9: Properties of the wall materials. 











Material p (kg/m?) C(J/kg-K) k (W/m-K) 
Plasterboard 0 1380 0.15 
Fibreglass 30 850 0.038 
Plywood 545 1200 0.1 





20. 


21. 


where B = (r* — ])/Inr* and A=1 +r” — B. Hence, compare the pre- 
dicted friction factor based on a hydraulic diameter Dy = 2 (Ro — Ri) with 


(f Re)p, = - (1 | 


Solve Equation 2.78 for turbulent flow in a circular tube and compare your 
results with the expressions [33] 


35 yt < 11.6 

u 
w^ [зак ШТ 
1 -2(r/ 7 
Also compare the predicted friction factor f with f = 0.079 Re-92? for Re > 
2 x 10^ and with f = 0.046Re-9? for Re > 2 x 10%. Plot the variation of total 


(laminar plus turbulent) shear stress with radius r. Is it linear? (Hint: Make sure 
that the first node away from the wall is at yt ~ 1.) 


|+ y% > 11.6. 


Engine oil enters a tube (D = 1.25 cm) at uniform temperature Т = 160°C. 
The oil mass flow rate is 100 kg/h and the tube wall temperature is maintained at 
Ty = 100°C. Ifthe tube is 3.5 m long, calculate the bulk temperature of oil at exit 
from the tube. The properties of the oil are م‎ = 823 kg/m?, C, = 2,351 J/kg-K, 
v = 10-52 /5, and k = 0.134 W/m-K. Plot the axial variation of Nusselt num- 
ber Nu, and bulk temperature 75 ; and compare with the exact solution given 
in Table 2.10. 


Table 2.10: Thermal entry length solution - Ty = 
constant [33]. 











(x/R)/(Re Pr) Ми, (Tw - To)/(Tw ₪ Tin) 
0 Co 1.0 

0.001 12.80 0.962 

0.004 8.03 0.908 

0.01 6.0 0.837 

0.04 4.17 0.628 

0.08 3.77 0.459 

0.10 3.71 0.396 

0.20 3.66 0.190 

Co 3.66 0.0 
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It is proposed to remove NO from exhaust gases of an internal combustion 
engine by passing them over a catalyst surface. It is assumed that chemical 
reactions involving NO are very slow so that NO 15 neither generated nor 
destroyed in the gas phase. At the catalyst surface, however, NO is absorbed 
at the rate of m” = Km@o, where the rate constant К = 0.075 m/s and wo 
15 the mass fraction of NO at the catalyst surface. In the exhaust gases (T = 
500°C, p = 1 bar, M = 30) the mole fraction of NO is XNo = 0.002. Now, 
it is assumed that NO diffuses to the catalyst surface over a stagnant layer of 
1 mm with effective diffusivity = 3 x D, where D = 107^ m?/s. Determine 
the steady-state absorption rate (kg/m?-s) of NO and its mass fraction at the 
surface. 


The mass fraction of carbon in a low-carbon steel rod (2 cm diameter) 15 0.002. 
To case-harden the rod it is preheated to 900°C and packed in a carburising 
mixture at 900°C. The mass fraction of carbon at the rod surface is now 0.014 
and is maintained at this value. Calculate the time required for the carbon mass 
fraction to reach 0.008 at a depth of 1 mm from the rod surface. Assume radial 
diffusion only. In this case, cross-sectional area А = 277. However, since the 
penetration depth is only 10% of the rod radius, one may take A = 27 R = 
constant (1.e., assume plane diffusion). Compare the time required in the two 
cases. Take the diffusivity of carbon in steel to be D = 5.8 x 10-19 m?/s. 


Gaseous Н» at 10 bar and 27°С is stored in a 10-cm inside diameter spher- 
ical tank having a 2-mm-thick wall. If diffusivity of Н») in steel 15 D = 
0.3 x 10-12 m?/s and solubility 5 = 9 x 107? kmol/m?-bar, estimate the time 
required for the tank pressure to reduce to 9.9 bar. Also, plot the time variation 
of tank pressure рн, and the instantaneous hydrogen loss rate. Take psteel = 
8,000 kg/m?. The density of hydrogen at the inner surface of the tank is given 
by рн, | = Spy, My,. Is an exact solution possible for this problem? 


Consider steady-state heat transfer through the composite slab shown in 
Figure 2.14. Assume kı = 0.05 (1 + 0.008 T), ₪ = 0.05 (1 + 0.0075 T), and 
k3 = 2 W/m-K, where T is in degrees centigrade. Calculate the rate of heat 
transfer and the temperatures of the two interfaces. Ignore radiation. 


Repeat Exercise 25 including the effect of radiation. The emissivities at x = 0 
and x = 17 cm are 0.1 and 0.8, respectively. In this problem, one must use the 
concept of effective heat transfer coefficient Ле = A + А, аа. Thus, at x = 0, 
for example, 
her = 50 + 0.10 (Too + Tr=0) (Т2 + T2 4), 

where the Stefan-Boltzmann constant o = 5.67 x 1078 W/m?-K4, and Ты 
T,—o are in Kelvin. 

Consider fully developed turbulent heat transfer in a circular tube under con- 
stant wall heat flux conditions. Equations 2.80 and 2.81 are again applicable 
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5cm 10 cm 2cm 





Т,,= 600 C T,-50C 


h = 5 W/m?-K 


h = 50 W/n?-K 


Figure 2.14. Composite slab. 
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30. 


but the fully developed velocity profile is determined from Exercise 19. 
Also, k in Equation 2.80 is replaced by (k + А), where А = С„ш{/Рт\ү. Cal- 
culate the Nusselt number Nu for different Reynolds numbers at Prandtl 
numbers Pr = 1, 10, and 100. Take Pr, = 0.85 + 0.039 (Pr + 1)/Pr. Com- 
pare your result with following correlations: (a) Nu; = 0.023 Re08 4 
and (b) Nu» = 5 + 0.015 Re" Pr", where m = 0.88 — 0.24 (4 + Pr)! and 
n = 0.333 + 0.5 exp(— 0.6 Pr). 


Consider laminar fully developed flow and heat transfer in a circular tube under 
constant wall heat flux conditions. The fluid is highly viscous. Therefore, Equa- 
tion 2.80 must be augmented to account for viscous dissipation u (ди /дг)?. 
Calculate Nu and compare your result with Nu — 192/(44 4- 192 Br), where 
the Brinkman number Br = ji? / (ду, D). In this problem, Equation 2.81 must 
be modified as follows: 

ƏT аъ _ 26. + “س4‎ /R) 


д2 dz pCpuR 





Explain why. 


Repeat Problem 1 from the text using v = 0.3 and y = 0.7. Choose N = 7. 
Determine the largest allowable time step using constraints (2.36) and (2.37). 
Compare your solution for the time required for adhesion with the exact solution 
determined in Exercise 2. 


Consider fully developed laminar flow of a non-Newtonian fluid between two 
parallel plates 2b apart. For such a fluid, the shear stress is given by 


ди 


п—1 ди 
ду 


Tyx = , 
ух ш ду 








54 


31. 


1D HEAT CONDUCTION 


where n may be greater or less than 1. Form = 1, a Newtonian fluid is retrieved. 
Compare the computed velocity profile with the exact solution 


и _ 2п-+1 | ( 
u n+l Ь | 


where y 15 measured from the symmetry axis. 





In Exercise 30 consider fully developed heat transfer under an axially constant 
wall heat flux condition. Compare your computed result for this case with 
hDy _ 19 (4n + 1) (5п + 2) 

k מ17 + 2מ32‎ + 2 ' 
where hydraulic diameter Dy = 4b. 


Nu = 








3 1D Conduction-Convection 


3.1 Introduction 


Consider a 1D domain (0 > x < L) through which a fluid with a velocity u is 
flowing. Then, the steady-state form of the first law of thermodynamics can be 
stated as 





дах 
Ж 3.1 
б (3.1) 
where 
1 
qx = 47" t qp" = рСриТ – Е. (3.2) 


These equations are to be solved for two boundary conditions, T = 70 at x = 0 
and T = 77 at x = L. It is further assumed that p и is a constant as are properties 
C, and k. 

Our interest in this chapter 15 to examine certain discretisational aspects as- 
sociated with Equation 3.1. This is because in computational fluid dynamics 
(momentum transfer) and in convective heat and mass transfer, we shall recur- 
ringly encounter representation of the total flux in the manner of Equation 3.2. 
Note that if и = 0, only conduction is present and the discretisations carried 
out in Chapter 2 readily apply. However, difficulty is encountered when con- 
vective flux is present. The objective here is to understand the difficulty and 
to learn about commonly adopted measures to overcome it. In the last section 
of this chapter, stability and convergence aspects of explicit and implicit proce- 
dures for an unsteady equation in the presence of conduction and convection are 
considered. 


3.2 Exact Solution 


Because our interest lies in examining the discretisational aspects associated with 
convective-conductive flux, we take the special case of S = 0. For this case, an 
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Figure 3.1. Effect of P - exact solution. 


elegant closed-form solution is possible. Thus, we define 


Tan 
ta = (3.3) 
ТІ = Т 
fa (3.4) 
LO e 


_ 06008 _ Convective flux 


P= = { 3.5 
k/L Conduction flux ف‎ 





where P 15 called the Peclet number. Therefore, Equations 3.1 and 3.2 can be 
written as 


x [^*-5]-* (3.6) 


with Ф = 0at X = 0 апа ® = lat X = 1. The exact solution is 


Ф - Фү РХ) 1 
аво. ENT ו‎ i Зна (3.7) 
Фу = Фу—0 ехр(Р) - 1 
The solution is plotted in Figure 3.1 for both positive and negative values of P. 
Negative P implies that the fluid flow is from x = L to x = 0 (or u 15 negative). 


3.3 DISCRETISATION 


It will be instructive to note the tendencies exhibited by the solution. 


1. Figure 3.1 shows that irrespective of the value of P, © always lies between 0 
and 1. This means that Ф at any x is bounded between its extreme values. 

2. When P = 0, the conduction solution 15 obtained and, as expected, the solution 
15 linear. 

3. At X = 0.5 (ie at the midpoint) 


exp(0.5 P) — 1 


Poe oel. (3.8) 


It is seen from the figure that as P > + oo, Ф (0.5) > 0 and as P > — oo, 
Ф (0.5) — 1. Thus, at large values of | |, the midpoint solution tends to a value 
at the upstream extreme. 


This last comment is particularly important because a large | P| implies domi- 
nance of convection over conduction. As we will shortly discover, the main difficulty 
in obtaining numerical solution to Equation 3.6 is also associated with large | P|. 


3.3 Discretisation 


Equation 3.6 will now be discretised using the IOCV method. Then with reference 
to Figure 2.3 of Chapter 2, we have 


[ i [rox | א‎ (3.9) 
"E. ax 
or 
حينم‎ вео (3.10) 
ӘХ |. ӘХ |, 








Now, as in the case of conduction, it will be assumed that Ф varies linearly between 
adjacent nodes. Also, though not essential, we shall assume a uniform grid so 
that AX, = AXy = AX. Thus, since the cell face is midway between adjacent 
nodes, 








1 1 
Ф. = 2 (Фе + Фр), Py = 2 (Фу + Фр) (3.11) 
апа 
дФ SF 一 下 дФ Op — Ф 
LSE РВ шо W (3.12) 
aX |, AX ӘХ |, AX 


This practise of representing cell-face value and cell-face gradient is called the 
central difference scheme (CDS). Substituting Equations 3.11 and 3.12 in Equa- 
tion 3.10, we have 


P 1 
— (Mp — Фу) م2 ع | لا‎ © Ф = 0. 3.13 
7 ( Е w) Ax | E Р + Ow] (3.13) 
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Clearly, the first term represents the net convection whereas the second term rep- 
resents the net conduction. However, note that, unlike in the conduction term, Фр 
does not appear in the convection term. 

Equation 3.13 will now be rewritten in the familiar discretised form to 
read as 





AP Bp = AE BE + AW Ow, (3.14) 
where 
P; 
AE = ( = =) | (3.15) 
2 
P; 
AW — (1+2), (3.16) 
AP = AE + AW = 2 )3.17( 
апа 
LA A 
Pepas =, )3.18( 
a L a 


where a = k/(p Cp) is the thermal diffusivity and P, is called the cell Peclet num- 
ber. If we now invoke Scarborough’s criterion, it is clear that Equation 3.14 will be 
convergent only when AE and AW are positive. This implies that the condition for 
convergence is 


IP.| 2 (3.19) 


Thus, when convection is very large compared to conduction, to satisfy condition 
(3.19), one will need to employ very small values of AX or a very fine mesh. 
However, this can prove to be very expensive. 

The more relevant question, however, is, Why do AE and/or AW turn neg- 
ative when convection is dominant? The answer to this question can be found 
in Equation 3.11, where, contrary to the advice provided by the exact solution, 
the cell-face values are linearly interpolated between the values of ® at the adja- 
cent nodes. Note that when P, > 2 and large, the exact solution gives Ф. > Фр 
апа Pw — Фуу. Similarly, when P, < —2, Ф. — PE and Фу جح‎ Фр. In Equa- 
tion 3.11, we took no cognizance of either the direction of flow (sign of P.) or its 
magnitude. 

To obtain economic convergent solutions, therefore, one must write 


P. = y Фр + (1 — V) Or, Pw = Y Pw +(1— у) Фә, (3.20) 


3.4 UPWIND DIFFERENCE SCHEME 


where w is sensitized to the sign and the magnitude of Р,. Note that, in Equa- 
tion 3.11, we took у = 0.5, an absolute constant. 


3.4 Upwind Difference Scheme 


The upwind difference scheme (UDS) was originally proposed in [8] but later in- 
dependently developed by Runchal and Wolfshtein [60] among others. The scheme 
simply senses the sign of P, but not its magnitude. Thus, instead of Equation 3.11, 
we write 


1 1 
РФ, = = [P + [إط|‎ Фе + 5 [P — IPI] Ф, (3.21) 


1 1 
Poy = 5 [Р + |Р] بوه‎ 51Р - IPI] Ф. (3.22) 


These expressions show that when P > 0, Ф. = Фр and Py = Фуу. Similarly, 
when P > 0, Ф. = Фь and ®y = Фр. That is, the cell-face values always pick 
up the upstream values of Ф irrespective of the magnitude of P, hence, giving 
rise to the name of this interpolation scheme as the upwind difference scheme.! 
Substituting these equations in Equation 3.10, we can show that Equation 3.14 again 
holds with 


1 
AE =1+(Р;| Р), (3.23) 


1 
AW =1+ z (FI «= Ре), (3.24) 


and АР = АЕ + AW. Equations 3.23 and 3.24 show that, irrespective ofthe тар- 
nitude or sign of P (or Р), AE and AW can never become negative. Also, AP 
remains dominant. Therefore, obstacles to convergence are removed for all values 
of P.. This was not the case with CDS.” 


Physically, the UDS can be understood as follows: Imagine standing at the middle of a long cor- 
ridor at one end of which there is an icebox (at Tice) and at the other end a firebox (at Tire). 
Then, neglecting radiation, the temperature experienced by you will be Tm = 0.5 (Tice + Tare) 
when the air in the corridor is stagnant and heat transfer is only by conduction. Now, imag- 
ine that there is air-flow over the firebox flowing through the corridor in the direction of the 
icebox. You will now experience Tm that weighs more in favour of Tyre than Tice. The reverse 
would be the case if the airflow was from the icebox end and towards the firebox end. The UDS 
takes an extreme view of both situations and sets Tm = Те in the first case and Tm = Tice in the 
second case. 

Incidentally, with respect to Equation 3.20, we may generalise AE and AW coefficients for both 
CDS and UDS in terms of y as 


AE-1-(1—-y)B, | AW د‎ 1 + y P,, (3.25) 





y —0.5 (CDS), y= ; ( + Z1) (UDS). (3.26) 
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Table 3.1: Фр values for ФЕ = 1 and Фу = 0. 











Р, Exact CDS UDS HDS Power 
10 0.454e—4 —2 0.0833 0.0 0.0 
8 0.335e—3 —].5 0.100 0.0 0.40e—4 
6 0.247e—2 一 1.0 0.125 0.0 0.17е—2 
4 0.018 —0.5 0.167 0.0 0.0187 
2 0.119 0.0 0.25 0.0 0.123 
1 0.269 0.25 0.333 0.25 0.271 
0 0.5 0.5 0.5 0.5 0.5 
—1 0.731 0.75 0.667 0.75 0.729 
—2 0.881 1.0 0.75 1.0 0.981 
—4 0.982 1.5 0.833 1.0 1.0 
—6 0.998 2.0 0.875 1.0 1.0 
一 8 1.0 2.5 0.900 1.0 1.0 
—10 1.0 3.0 0.917 1.0 1.0 





3.5 Comparison of CDS, UDS, and Exact Solution 


To compare the exact solution with CDS and UDS formulas, let L = 2 Ax. Then, 
it can be shown that (see Equation 3.7) 














2P.x*)-1 2Р„х*) = 1 
dj EE) qos eere ФЕ, (327) 
exp (2 Р.) – 1 exp (2 Р.) - 1 
where x is measured from node W and x* = х /(2 Ax). Therefore, Фр (x* = 0.5) 
15 given by 
Р.) — 1 Р.) -1 
Фь — 1 — exp (Po) = 1 Ow exp (Po) - 1 Фе, (Ехасї). 
exp(2 Р.) - 1 ехр(2 Р.) - 1 
(3.28) 
The corresponding CDS and UDS formulas are 
pus 1-4 быч р w (CDS) (3.29) 
5 greg ו‎ bd | | 
с°з | eee لل‎ 
Dp = Ф Ф UDS). 
١ | 2+|5,| . 2+|5,| ריר א‎ 
)3.30( 


In general, BE and Pw may have any value. However, to simplify matters, 
we take the case of Фе = 1 and Pw = 0 and study the behaviour of Фр with Py. 
Values computed from Equations 3.28—3.30 are tabulated in Table 3.1 and plotted in 
Figure 3.2. Two points are worth noting: 


1. The CDS goes out of bounds for | Р„| > 2. For this range, the CDS is also not 
convergent as was noted earlier. It is a reasonable approximation to the exact 


3.6 NUMERICAL FALSE DIFFUSION 











0.0 




















-10 -5 


Figure 3.2. Comparison of CDS and UDS with exact solution. 


solution when | | — 0. In spite of this, mathematically speaking, CDS is taken 
as the best reference case to compare all other differencing approximations 
because the CDS representation evaluates both convective and conductive con- 
tributions with the same approximation. That is, the spatial variation of Ф is 


assumed to be linear between adjacent grid nodes. 


2. Although UDS is convergent at all values of P, and nearly approximates the 
exact solution for |P.| — оо, it is not a very good approximation to the exact 
solution at moderate values of |Р, |. Also, UDS deviates from CDS for |Р,| > 2. 


3.6 Numerical False Diffusion 


It was already noted that CDS 15 mathematically consistent. We consider the CDS 


formula (3.13) again and write it as 


Р, 
5 Ug dc [e - 20 + w]=0 (CDS). )3.31( 


Now, consider UDS formula (3.30) for P, > 0 (say): 


Р. (Фр — Фу) – [ФЕ — 2 Фр + Фу] = 0 


(UDS). (3.32) 
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To compare CDS and UDS formulas, we modify Equation 3.32 to read as? 
| Pe | 





Р, 

2 PE — Фу)— ( + ) [Ptr - 2 مه‎ - Фу]=0 (UDS). (3.33) 
Comparison of Equation 3.33 with the CDS formula (3.31) raises several inter- 

esting issues: 


1. Recall that the first term in Equation 3.31 corresponds to the convective con- 
tribution whereas the second term corresponds to the conductive contribution. 
Further, since P is constant, we may view Equation 3.6 as 

2 
P a as = 0. (3.34) 
aX ӘХ? 
If we discretise both the first and the second derivative through a Taylor series 
expansion, it will be found that the CDS formula (3.31) represents both the 
derivatives to second-order accuracy. 

2. Equation 3.32, in contrast, suggests that UDS represents the convective contri- 
bution to only first-order accuracy, whereas the conductive contribution is still 
represented to second-order accuracy. Mathematically speaking, therefore, the 
estimate of the convective contribution will have an error of O (Ax). 

3. In Equation 3.33, this error is reflected in the augmented conduction coefficient 
because the convective term is now written to second-order accuracy as in the 
CDS formula. Mathematically speaking, therefore, it may be argued that the 
second-order-accurate UDS formula represents discretisation with augmented 
or false conductivity Казе = م‎ Cp |u| Ax /2. In fact, it can be shown that Equa- 
tion 3.33 is nothing but a CDS representation of 


3 C,|u| Ax \ aT 
x [eer - (r+? ae =) s | =o. (3.35) 





Thus, if the last comment is given credence, then clearly the UDS represents 
distortion of reality and is therefore a poor choice. Yet, the closeness of the UDS 
result to the exact solution shown in Figure 3.2 suggests that the so-called false 
conductivity is indeed needed. In fact, it is this false conductivity that reduces the 
value of the effective Peclet number and thereby ensures convergence of the UDS 
formula for all Peclet numbers. 

Patankar [49] has therefore argued that to form a proper view of false diffusion, 
it is necessary to compare the UDS with the exact solution rather than with the 
second-order-accurate CDS formula. This is yet another example where the TSE 
method is found wanting. 

Of course, this is not to suggest that the UDS formula is the best representation 
of reality. The properties embodied in the UDS formula suggest that one can derive 
other variants that will sense not only the sign of P, but also its magnitude. Further 


3 Equation 3.33 can also be derived for P, > 0. 


3.8 TOTAL VARIATION DIMINISHING SCHEME 


considerations associated with false diffusion in multidimensional flows will be 
discussed in Chapter 5. 


3.7 Hybrid and Power-Law Schemes 


Spalding [75] derived a hybrid difference scheme (HDS) such that, in Equation 3.20, 
w is given by 


v= = |^ — 1 + max (-2. 1— e 0) | (HDS). (3.36) 
Р, 2 
Similarly, Patankar [49] argued that the best representation is the exact solution 
Itself (see Equation 3.28). However, this will require evaluation of exponential terms 
and this 15 not economically attractive in practical computing. Therefore, he chose 
to mimic Equation 3.28 through a power-law scheme, which implies that 


y —[P.—1-Fmax(0, - ([ = 
+ max {0, (1 — 0.1|P,]? ] /P. (Power law). (3.37) 


With these two expressions for ү, it is now possible to construct AE and AW 
coefficients (see Equation 3.25) for the HDS and power-law schemes. The resulting 
implications for Фр are tabulated in Table 3.1. Notice that for | | < 2, the HDS 
results match exactly with those of the CDS. For |P.| > 2, the HDS assumes that 
| | = оо or, in other words, conduction flux is set to zero. This may be considered 
too drastic but it nonetheless ensures positivity of coefficients for all values of Po. 
The results from the power-law scheme, of course, do mimic the exact solution 
quite well. 


3.8 Total Variation Diminishing Scheme 


The difference schemes discussed so far are found to be adequate when the spatial 
variation of Ф is expected to be smooth and continuous. Often, however, the Ф 
variation is almost discontinuous (as across a shock). To capture such variation, 
extremely small values of Ax become necessary, resulting in uneconomic com- 
putations. However, if coarse grids are employed then UDS, HDS, or power-law 
schemes produce smeared shock predictions. 

Total variation diminishing (TVD) schemes enable sharper shock predictions 
on coarse grids. In these schemes, in addition to magnitude and sign of Р,, the 
nature of the variation of © in the neighbourhood of node P 15 also sensed. Thus, 
instead of Equations 3.21 and 3.22, we write 


РФ, = (Р IPD[A ФЕ + Фи] 


1 
*t3(0 -IPh ] ₪ ФР+(1— fL) Pee], (3.38) 
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1 
РФ = „(Р IPD [Ar Or + )1 Л) Фуу] 


1 » 

(= DA ex = уш |, (3.39) 
where the % are the appropriate weighting functions to be determined from 
Фу — =] 

Фр — Фуу 

with suffix D referring to downstream, U to upstream, and UU to upstream of U. 
The f;', for example, is thus a function of (Фр — Фу) /(Фе — Pw) and f; isa 
function of (Фе — Фвь)/(Фр — Фев). Here, EE refers to the node east of node E 
and WW to the node west of node W. 


It is interesting to note that if f equals its associated & then Equations 3.38 and 
3.39 readily retrieve the UDS formula. Therefore, writing 


f (5) = & + fe) (3.41) 


J=] G= 1 )3.40( 


we can show that 


1 
РФ. = Р De luns + 5 (P  IPI) 5 (Pg — Фу) 
1 _ 
— (P — Рр) fus (sg = Фр), (3.42) 
1 
Р w = P Фу | של + ومن‎ + [PD fa, (Фр — ww) 


1 s 
=5 (P — IP) fow (Pe — Фу). (3.43) 
Substituting the last two equations in Equation 3.10, we can show that 
AP Фр = AE g + AW Фу + Styp, (3.44) 


where AE, AW, and АР are the same as those for Ше UDS and the additional 
source term Styp contains the f; terms in Equations 3.42 and 3.43, which the 
reader can easily derive. The /. (&) functions for some variants of TVD schemes 
are tabulated in Table 3.2. 

To appreciate the implications of the TVD scheme, consider the case in which 
P, > 0. Then, from Equation 3.42, P Pe = P®p+ P /(Фь — Фуу) and £ = 
(Dp — Фуу) /(Фв — Pw). Therefore, using the Lin-Lin scheme, for example, we get 





Фь, ё 2 (0, 1), 
2 p = Фу, é € (0, 0.3), 

Cole P (3.45) 
Л Фь + 8 Pg 一 3 Dy, ё є (0.3, 5/6), 


Dp, 6 (5/6, 1.0). 


3.9 STABILITY OF THE UNSTEADY EQUATION 


Table 3.2: Function fe (£). 











Scheme Range of £ fc 
Second-order -00 > E «oo &/2 
UPWIND 
QUICK [42] 一 co > E «oo 3/8 — 4 
HLPA [90] &э [0,1] 0 
se[0,1] 5E(1 一 5) 
Lin-Lin [43] دغ‎ [0,1] 0 
& € [0,0.3] E 
& € [0.3, 5/6] 3/8— 5/4 
é €[5/6, 1] pes 





Thus, for positive 1%, whereas UDS will always return Ф, = Фр, ће TVD scheme 
returns different values of Ф, depending on the value of (ог shape of the local 
Ф profile). In fact, as the last expression shows, even a downwind value may be 
returned. The TVD schemes thus typically switch among upwind, central-like, and 
downwind (DDS) schemes. 


3.9 Stability of the Unsteady Equation 
We now consider the unsteady conduction-convection equation 


07 07 027 
Ca C,u— =k—, 

Cee gy сы шт: 
where all properties and и (positive) are constant. Now, let Y = x/A, т = at/d’, 
and P = u XA/a, where A is an arbitrary length scale to be further defined shortly. 


Then, Equation 3.46 will read as 
07 oT ӘТ 
+Р 


(3.46) 





= . 3.47 
дт aX ӘХ? ( ) 
3.9.1 Exact Solution 
If at = 0, with T = 70 sin (X), the exact solution to Equation 3.47 is 
T = Toexp(—r)sin(X — Рт). (3.48) 


The solution represents a wave that moves P Ar to the right in each time interval 
At. The amplitude of the wave is 70 exp(— c). Thus, over a time interval Ar, the 
amplitude ratio (or the amplitude decay factor) AR is given by 

_ Teexp[-(v + At)] | 
B To exp (—T) Е 


АК 





exp (—Ar). (3.49) 
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To understand the relevance of AR, let Tp be the temperature at Xp after the 
first time step. Then, from Equation 3.48, it follows that 
Tp 
لتب‎ = exp(— Ат) = AR, (3.50) 
To sin(Xp + €) 
where the wave propagation speed e 15 given by 
At 
j= Phe кс (3.51) 


Finally, we note that the arbitrary length scale A is nothing but the wave- 
length and the propagation speed depends on A. This dependence on А is called 
dispersion. 


3.9.2 Explicit Finite-Difference Form 


Since Р > 0, using UDS, the explicit discretised form of Equation 3.47 will read as 








Tp = AE T + AW TẸ, + (1 C (AE + AW)} TẸ, (3.52) 
where 
de = зе. Lut (3.53) 
AX?’ - АХ? AX 1 


Now, consider the first time step. Then, 7? = Tosin( Xp), T? = Tọ sin (Xp + 

A X), and Ty, = Tosin (Xp — AX). Therefore, after some manipulation, it can be 
shown that 
Tp 

To sin (Xp) 


tan €£p 
tan (Xp) 





=[1—(АЕ + AW)(1 — cosAX)] x 1+ | (3.54) 


where 

(AE — AW)sin(A X) 
1 — (AE + AW)(1 — cos AX) 
In these equations, the suffix ED denotes explicit differencing. Now, consider the 
identity 





tanegp = (3.55) 








. . tan €gp 
sin (Xp + євр) = sin(Xp)cos(egp) | 1 + : (3.56) 
tan (Xp) 
Substituting Equation 3.56 in Equation 3.54, it follows that 
Ti ] — (AE + AW)(1— AX 
ARgp = ———— ה‎ е. S. 35 
To sin (Xp + євр) COS € gp 


Now, let us consider tendencies of A Rep and tan egp for fine (AX — 0) and 
coarse (AX — л) grids.^ These are shown in Table 3.3. 


^ Note that 1 — cos AX = 2 sin? (А X/2). 


3.9 STABILITY OF THE UNSTEADY EQUATION 67 


Table 3.3: Comparison of exact and explicit-differencing solutions. 











Exact Fine grid Coarse grid 

Wave speed 一 已 Ar €gp 一 —P Ат €gp — 0 
1—0.5 (AE--AW) AX? 1-2 (AE+AW) 

AR ехр(—Ат) COS ер COS مع‎ 





The table shows that, for fine grids, egp behaves in a correct manner but, for 
coarse grids, egp does not demonstrate the expected dependence on A. Therefore, for 
reasonable accuracy, AX «& 1, which implies that one must live with dispersion. 
Now, instability occurs when absolute amplitude ratio exceeds 1. Thus, for stability, 


Tp 


|AR| = | 元 一 一 一 一 一 
To sin( Xp + €) 


< 1. (3.58) 








From Table 3.3, therefore, we must have 





bed шй uq. 4 id) 
AX? AX < coarse grid), 
AX 
| 1— Ат ( + Р A) > cosegp (fine grid). (3.59) 


These equations show that, to meet the stability requirement, Ат must be limited 
to a small value. In pure conduction (P — 0), we had already stated these require- 
ments and showed consequences of their violation through a worked example. For 
the entire range of Ps, however, it is best to observe the following conditions for 
stability [76]: 


1 AT 


The first condition is operative when P — 0; the second when P is large. 


3.9.3 Implicit Finite-Difference Form 
The implicitly discretised form of Equation 3.47 will read as 
(1 + AE + AW) Tp = AE Tg + AW Tw + Тр. (3.61) 


Therefore, substituting for Tp, Tz, Tw, and Ту for the first time step, we can show 
that 


(1+ AE + AW)sin(Xp + €) = AE sin (Xp + AX + €) 
+ AW sin(Xp — AX + €) 
+ sin (Xp)exp (AT), (3.62) 
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where є is given by Equation 3.51. To derive an expression for tan مك‎ (where the 
subscript ID stands for implicit differencing), therefore, let Xp — 0. Then, from 
Equation 3.62, it can be shown that 


(AE — AW)sin(AX) 
1 + (AE + AW)(1 — cos AX): 





tan €p = (3.63) 

Equation 3.63 again shows that, as AX — 0, ون‎ > eexact. Also, notice that the 
denominator of this equation with a plus sign before (AE 4- AW) is not the same 
as the denominator in Equation 3.55. The plus sign indicates that the propagation 
wave will be more severely damped than in the explicit procedure and this damping 
will be greater for large A.X (small wavelength) than for small A.X. Now, to derive 
an expression for A Rip, let Xp = 2/2. Then, using Equations 3.62 and 3.63, we 
can show that 


Tp COS Єр 


A Rip € —— ا‎ 222 0 ——————— : 
To sin (xp + єр) І + (АЕ + AW)(1 — cos AX) 


(3.64) 

Again, this expression is different from Equation 3.57. Equation 3.64 shows 
that when AX and єр are small, ARjp = [1 + )45 + AW) Axa = 
(1+ Ат) ~ 1+ Ат — exp(—Ar)asrequired. When AX = л (i.e., for a coarse 
grid), however, A Rip = соѕєр/[1 +2 (4E + AW)]. 

These remarkable results show that 4Rip can never be greater than 1 because 
neither АЕ nor AW can be negative. Thus, the implicit discretisation is uncondi- 
tionally stable and there is no restriction on the time step. Again, in pure conduction 
(P — 0), we had demonstrated this result in Chapter 2 through a worked example. 
The implicit discretisation is thus safe. The only disadvantage is that the discretised 
equation must be solved iteratively rather than by a marching procedure, which is 
possible in an explicit scheme. 

The conclusions arrived at in this section apply equally to variables other than 
Т, to nonuniform grids, to ®-dependent coefficients, and to multiple dimensions. 


EXERCISES 
1. Derive Equation 3.7. 


2. Show that the CDS formula (3.31) is second-order accurate for both the first 
and the second derivatives. 


3. Show that the UDS formula (3.32) represents convection to only first-order 
accuracy. 


4. Show that the UDS formula is a CDS representation of Equation 3.35. 


5. Show correctness of the HDS (3.36) and power-law (3.37) expressions by 
recalculating the ®p values shown in Table 3.1. 


EXERCISES 


6. 


10. 


11 


Consider the steady 1D conduction—convection problem discussed in this chap- 
ter. Assume a nonuniform grid (1.е., Axe # Ax). Hence, derive expressions for 
AE, AW, and AP using the power-law scheme. If Pg = 1 and Фуу = 0, calcu- 
late Фр for Р, = и Ах, /a = —10, —5, —1, 0, 1, 5, and 10 when Ax, / Ax, = 
1.2. [Hint: Start with Equation 3.20 with y, = Е(Р,) and Wy = F(F.,).] 


. Show that if fin Equation 3.40 equals its associated £, Equations 3.38 and 3.39 


will yield the UDS formula. Hence, derive Equations 3.42 and 3.43 and the 
expression for the STvp term in Equation 3.44. 


. Use g = 1 and Pw = 0 and determine the variation of p with Р, for the 


TVD scheme when Фур = 5 and ®ww = —0.1. Assume —200 < Р, < 200 
and use the Lin-Lin and HLPA schemes. Assume a uniform grid. Compare 
your results with those given in Table 3.1 and comment on the result. (Hint: 
Iterations are required.) 


. Show that for a general differencing scheme, the false conductivity is given 


by Даве = م‎ Cpu Ах (Y — 0.5), where v is defined by Equation 3.20. Hence, 
compare kralse for UDS and HDS and comment on the result. Assume a uniform 
grid. 
Runchal [61] developed a controlled numerical diffusion with internal feed- 
back (CONDIF) scheme capable of sensing the shape of the local Ф profile. 
According to this scheme, AE and AW in Equation 3.14 are given by 
1 || — РЬ || + Pe 

(re у) [75]. Am =1+ + [IER],‏ + مه 
where‏ 

| 0o/0X|. _ (Pe — Op) АХ, 

- 006/0X|, (Pp — Фу) AX, 





Further, the values of R are constrained as follows: If R < 1/ Ry; then А = 
1/Rmax; 11 R > Rmax then R = Rmax. Typical values assigned to Rmax vary 
between 4 and 10. Assuming a uniform grid, show that 


(a) If R = 1, the CONDIF scheme is the same as the UDS. 


(b) CONDIF represents both convection and diffusion terms to second-order 
accuracy irrespective of the sign and the magnitude of the Peclet number. 


(c) Taking Bw = 0 апа Be = 1, compare values of ®p for | Р, | < 20 with the 
exact solution given in Table 3.1. Carry out this comparison for Rmax = 4 
and 10. 


. Derive Equations 3.55, 3.57, 3.63, and 3.64. 
12. 
13. 


Starting with Equation 3.59, show the correctness of Equations 3.60. 


Verify that Т = 70 exp(—r)sin(X) is an exact solution to the unsteady heat 
conduction equation д7 /дт = 9?T/9 X?. 
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14. It 1s desired to investigate stability of the equation in Exercise 13 for differ- 


ent values of weighting factor w (see Equation 2.6) so that the equation will 
read as 


NM 027 каср °Т° 
ar aX? aX? 


(a) Obtain a discretised analogue of this equation and substitute the exact 
solution for temperatures at P, E, and W. Set Xp = 2/2 and show that 





1 - 4 4 )1 — y)sin? (AX/2) 
1 + 4 A y sin? (AX/2) 





exp(—Ar)-— 





where A = AE = AW = At/(AX). 
(b) Hence, show that AR for any Хр is given by 


Tp 

AR = то = ехр(—Ат). 
Р 

(c) For stability, | AR| < 1. Hence, show that for y < 0.5, the solution is sta- 

ble when А > 0.5/(1 — 2 Y) whereas, for 0.5 > y < 1, the solution 15 


unconditionally stable. 


4 2D Boundary Layers 


4.1 Governing Equations 


It will be fair to say that the early developments in CFD and heat and mass transfer 
began with calculation of boundary layers. The term boundary layer is applied to 
long and thin flows: long in the streamwise direction and thin in the transverse 
direction. The term applies equally to flows attached to a solid boundary (wall 
boundary layers) as well as to jets or wakes ) free-shear layers). 

Calculation of boundary layer phenomena received a considerable boost follow- 
ing the development ofa robust numerical procedure by Patankar and Spalding [50]. 
This made phenomena that were either impossible or too cumbersome to calculate 
by means of earlier methods (similarity, nonsimilarity, and integral) amenable to 
fast and economic computation. The procedure, for example, permitted use of vari- 
able properties, allowed for completely arbitrary variations of boundary conditions 
in the streamwise direction, and led to several new explorations of diffusion and 
source laws. Thus, calculation of free or forced flames or wall fires could be carried 
out by considering the detailed chemistry of chemical reactions. Similarly, cal- 
culation of turbulent flows (and development of turbulence models, in particular) 
could be brought to a substantial level of maturity through newer explorations of 
diffusion and source laws governing transport of variables that characterise turbu- 
lence. Computer programs based on the Patankar-Spalding procedure are available 
in [50, 77, 10]. There are also other methods, for example, the Keller-Box method 
described in [35]. 

The emphasis in this chapter is on describing the Patankar-Spalding procedure 
using simple notation. The procedure generalises all two-dimensional boundary 
layer phenomena by introducing the coordinate system shown in Figure 4.1. This 
system permits consideration of 


1. axisymmetric as well as plane flows, 
2. wall boundary layers as well as free-shear layers, and 
3. internal (or ducted) as well as external boundary layers. 
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Figure 4.1. The generalised coordinate system. 


Following the generalised manner of presentation introduced in Chapter 1, the 
equations governing steady two-dimensional boundary layer phenomena can be 
written as 





Hpur®) 3(pvró) a ab 
OUP ED a _ |n. | (4.1) 


дх dy ду ду 


where Ф stands for u (streamwise velocity), w (azimuthal velocity), T (tempera- 
ture), Л (specific enthalpy), and «y (mass fraction). The meanings of Гъ and 5% are 
given in Table 4.1. The source terms of the u and w equations assume axisymmetry 
and dp/dr — 0 so that др/дх = dp/dx. In writing the energy equation in terms 
of T, we assume the specific heat to be constant. Note that in the presence of mass 
transfer, о and Г represent mixture properties and, in turbulent flows, the suffix eff 
(for effective) must be attached to Г. Later, we shall find that Ф may also represent 
further scalar variables such as turbulent kinetic energy К and its dissipation rate e. 
Independent variables x and y are shown in Figure 4.1 and are applicable to both 
axisymmetric and plane flows. In the latter, r — 1. It will be shown later that r, y, 
and angle a(x) are connected by an algebraic relation. 


Table 4.1: Generalized representation of 
boundary layer equation. 











Ф Ts Ss 

1 0 0 

и ш —dp/dx + B, 
w ш 0 
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4.2 ADAPTIVE GRID 
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Figure 4.2. Notion of adaptive grid. 


Equation 4.1 is to be solved with appropriate boundary conditions at I (inner) 
and E (external) boundaries and an initial condition at x = xo (say) for each Ф. 
Although the I boundary with radius r;(x) is shown as a wall boundary, it may 
well be an axis of symmetry with r;(x) = 0. Similarly, although the E boundary is 
shown as a free boundary, it may be a wall boundary. Thus, the specification of the 
three types of flows mentioned here can be sensed through appropriate designation 
of I and E boundaries as free, wall, or symmetry boundaries. 

Finally, we note that Equation 4.1 is parabolic. This implies that the values of 
Ф at a given x are influenced only by ® — values upstream of x; values downstream 
of x have no influence. Our task now is to discretise Equation 4.1. 


4.2 Adaptive Grid 


It is well known from boundary layer theory that, in general, boundary layer thick- 
nesses of velocity and other scalar variables can grow or shrink in an arbitrary 
manner in the streamwise direction. Also, for a given domain length L (say) in 
the x direction, the maximum values of thicknesses for different Ф$ are a priori not 
known. This makes the choice of ymax [see Figure 4.2(a)] difficult if the (x, y) coor- 
dinate system is used. Further, in this system, for a given number of nodes in the 
y direction, the boundary layer region of interest may be occupied by too few grid 
nodes, resulting in wasted nodes. Similarly, in some other regions, there may be 
more nodes than necessary for accuracy. What one would ideally like is a grid that 
expands and contracts with the changes in boundary layer thickness preserving the 
same number of grid nodes in the transverse direction at each axial location. Such 
a grid (called an adaptive grid) is shown in Figure 4.2(b) with coordinates x and 
w, where o 15 defined as 


וצט-ץ | 


= 1 42 
Quen eee uz 


0 


| 
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and where w is the stream function defined by 
ду 


= – pur, (4.3) 
дх 
д 
ом (4.4) 
ду 
Thus, at any x 
w= | purdy+c, (4.5) 


where C 15 a constant. The y coordinate is thus related to y and the latter, in turn, is 
related to о via Equation 4.2. Suffixes I and E, of course, refer to inner and external 
boundaries. 


4.3 Transformation to (x, w) Coordinates 


Our task now is to transform Equation 4.1 from the (x, y) coordinate system to 
the (x, œ) coordinate syatem. To do this, we shall follow the sequence (x, y) > 
(x, V) — (x, w). Making use of the mass conservation equation (Ф = 1), we can 
write Equation 4.1 in nonconservative form as 

















0d дФ 1 8 0d 
= Г $. 4.6 
кы ее Р - 
Now, the transformation (x, y) — (x, Y) implies that 
0 ow д 0 
--| = Ў (4.7) 
dx |, | Ox ду |, Ox |] 
д ow д 
С А БЕРЕ а (4.8) 
ду |, dy dw}, дү |, 





Substituting these equations in Equation 4.6, we can show that 


























дФ 0 0d S 
-一 | 2Slser?ur — | + (4.9) 
ax |, дү ov pu 
Further, the (x, ү) — (x, œ) transformation implies that 
0d 0d 0 дФ 
افد‎ Set Е E. (4.10) 
Ox |y OX |, Ox |y до |, 
but, from Equation 4.2, 
do | _ [ду AW _ душы 
Ox EI | ax Ox дх 1, 
a [дуи дут 
1 
= — — ; 4.11 
Vg E 00 Jx | ( ) 


4.3 TRANSFORMATION TO (x, w) COORDINATES 


where, for convenience, 








Ver = vg — vi. (4.12) 
Thus, substituting Equation 4.11 in Equation 4.10, we can write Equation 4.9 as 
дФ дФ д дФ S 
一 一 bo) — Г — —, 4.13 
dp PR SLT 7 | vom 
where 
19V 
1 
三 一 —, 4.14 
а Vg Эх ( ) 
_1 дукт 
1 
= - 一 一. 4.15 
₪ ә )4.15( 
Now, invoking Equation 4.2 again, we obtain 
0 1 д 
— = үр —. 4.16 
m VE 55 (4.16) 
Therefore, Equation 4.13 can be written as 
0 дФ д дФ S 
一 一 bo) —| = — |c — —, 4.17 
Ox ee 网 до |. до ез] +5 P 
where 
c= Vg р?и Г: (4.18) 


Equation 4.17 represents Equation 4.1 in the (х, œ) coordinate system in 
nonconservative form. To develop the conservative counterpart, the equation is 





written as 
дФ д дФ д S 
一 一 +5 — | (а+Ь®ф)Ф—с— | – Ф — (а Бо) = —, (4.19) 
ax |, до до pu 
where, since a and b are not functions of c, 
д 
Ф — (а-ро) = БФ. (4.20) 
до 
Now, consider the Ра 
10VEI 3P 
Ф o —— = — – рф. 4.21 
Ver Эх йш ( = + Wa Эх Эх (4.21) 


Using the last two equations, we can write Equation 4.19 as 





дФ S 
[We [+ 22. ₪ СТЕ = Ўн? 4.22) 
до ри 
This is the required boundary layer equation in the (x, о) coordinate system 
written in conservative form. It will be useful at this stage to interpret the terms 
in Equation 4.22. Thus, from Equations 4.12 and 4.5, it is easy to show that vg 


75 


76 


2D BOUNDARY LAYERS 


represents the total streamwise mass flow rate through the boundary layer at any x. 
Similarly, making use of the definitions of a, b, and c and using Equation 4.16, we 
can show that 





a® : дФ 
Vg ila + bw) Ф - 60---| =rmO—rl —, (4.23) 
до ду 
where 
0 0 
и. (4.24) 
ðw pru ду 
апа 


rm =r pv = (1 — زه‎ 1 oreme 
with ть = (pv)g, my, = (pv). (4.25) 
Thus the total transverse mass flux m at any y is a weighted sum of mass fluxes at 
the inner (771) and external (rig) boundaries in the positive y direction. Equation 4.23 


therefore represents the total convective-diffusive flux in the y direction. Then by 
substituting Equation 4.23, Equation 4.22 can be written as 


д д дФ 5 
— [Vg Ф] + — [rm ó rr — sM (4.26) 
Ox до ду pu 
4.4 Discretisation 


Figure 4.3 shows the (x, w) grid at streamwise location x. Suffix и refers to upstream 
and d refers to downstream. Note that nodes N, P, and S are not equidistant because 
Aa, in general, will not be uniform. This will become apparent in a later section. 
To derive the discretised version of Equation 4.26, each term in the equation will 
be integrated over the control volume. Thus, assuming source term S to be constant 
over the control volume, we have 


ха n S ха n S Xd n 
J J = | J day = | J Sr dx dy 
Xu 5 pu P s pu Xu 5 
= Srp Ax Ay = SAY, (4.27) 
where 
AV = קז‎ Ax Ay. (4.28) 


Similarly, the streamwise convection term integrates to 


/ | | Č [a 9] dx do = [оры 9) - (йы 9], Ao. (429) 


4.4 DISCRETISATION 


Xu Xd 





E Boundary (j = JN) 





j=JN-1 





e j Awp 

















= I Boundary (j= 1) 








Figure 4.3. The (x, o) grid. 


Finally, the convection-diffusion term in the transverse direction integrates to 


м/т 8 . 04 1 дФ 
J | — |rm®—rl — | dxdæ = {rm -rT —} Ax 
mo Js 00 ду ду Ja 


. 0d 
— {rmo—rr 021 Ax. (4.30) 
ду | 


Equation 4.30 implies that the net flux at the cell faces is uniform between xu 
and ха. Now, assuming /inear variation of between adjacent nodes gives 


дФ (6$ — Ф) дФ 


_ (95 — 9$) 
0 Аў \ ду 


一 4.31 
Ays кын) 











ду |, s 
where Ay, = אע‎ — ур and Ay, = yp — ys. Note that the Фѕ are evaluated at ха 
rather than midway between x, and ха. However, assuming that Ax 15 small, this 
liberty is permissible. 

The next task is to evaluate convective fluxes at the cell faces. To do this, we 
may use any of the schemes introduced in the previous chapter but, following 
Patankar [52], we use the exponential scheme that follows from the exact solution 
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to the equation 
. дФ 
5 r^e-rr i-e. (4.32) 


Then, it follows that 

















exp(,/2) - 1 
Ф„ = of Peace) cae E 4.33 
n= Ф + (PN ) D (433) 
exp (Po, /2) - 1 
Ф, = 95+ (pt — wf) | = | 4.34 
5 s+( Р 9 | ехр(Р.) — 1 ( ) 
where, the cell Peclet numbers are evaluated using the harmonic mean (see Equa- 
tion 2.58): 
Mn A yn Yn — ур , JN — Yn 
P= = А 4.35 
Lem a erpa], aas 
ms Ау; : Js 一 JS JP 一 Js 
Р = = \ 4.36 
се Г, My | Ts Р Te | ( ) 


Thus, substituting Equations 4.33-4.36 in Equation 4.30 and combining the 
latter with Equations 4.27 and 4.29, we can show that the discretised version of 
Equation 4.26 takes the following form: 





АРФ = AN Dİ + AS d + AU ل باه‎ S AV, (4.37) 
where 
rnmn AX 
N = —_—__, 4.38 
exp Pa — 1 сыз) 
AS = rsms Ax exp Po, (4.39) 
exp P — 1 
AU = yg ^o, AP = AU + АМ + )4.40( 


In deriving the АР coefficient, use 15 made ofthe mass conservation equation. Thus, 


n 9 n 9 
/ Z (prujdy =~ | == (pr v)dy 
s Ox Я ду 


= —(rymy — r,m;) (4.41) 
_ 8 f* дү 
© ax ول‎ ду 
Aw i 
= лу Va- Ую). (442) 


Finally, the node-indexed version of Equation 4.37 can be written as 


AP; Ф; = AN; ®j41 + AS; Фу + AU; BY S; AV; (4.43) 


4.5 DETERMINATION OF رب‎ y, ANDr 


for 7 =2,3,...,JN—1. Note that superscript d is now dropped for 
convenience. 


4.5 Determination of w, y, andr 


Equation 4.43 represents a set of algebraic equations at a streamwise location xq. 
These equations can be solved by TDMA when values of Ф" at x, are known along 
with the two boundary conditions at ха )1.6., at 7 = 1 and j = JN). Thus, starting 
with x — xo (say), one can execute a marching procedure taking step Ax. This 
situation is very much like the unsteady conduction problem in which the marching 
procedure is executed with time step Af. 

Thus, at x = xo, the u; ~ y; relationship is assumed to have been prescribed 
either from experimental data or from an analytical solution. One can use this 
prescription to set c; once and for all. Let 


Qj = ,مه‎ 0р = 0, WVj-—Wp, Pej = Vs 


Уј = Ур, еу = Ууѕ, Vi = Рр, Fej — fs, (4.44) 


where, at x = xo, yj(j = 1,2,..., JN) are known. Thus, one can set у = yc? = 
yı Where y; refers to the I boundary and ууу to the E boundary. Now, from the 
geometry of Figure 4.1, it follows that r ; and гуу can be evaluated from the formula 


г =r; + y cos (a), (4.45) 


where به‎ is function of x. This completes the grid specification at x = xo. 

For evaluation of оу, we first calulate y';. Thus, setting Wi = رعلا‎ = үл (say), 
where Wi is arbitrarily chosen, опе can use Equation 4.5 to set all other y;. The 
relevant discretised equations are 


Vr, j == Ve, j-1 + (Pr и);—1 (ус, = Ус,у—1), J = )4.46( 


y; = pj- +0.5 f (оли); +(оғи); 1} ₪, - 2  J292,3,....,JN. 
(4.47) 


It is now a simple matter to evaluate w; and о, ; using definition (4.2). Thus, 
رم‎ at y; represents the ratio of streamwise mass flow rate from yı = у to y; to the 
total mass flow rate from y; to yg at x = xo. It is now assumed that this ratio remains 
intact at all values of x and thus the wj distribution does not change throughout the 
domain in the x direction. 

Note, however, that the physical distance y (and therefore r) must go on changing 
at different values of x as the boundary layer grows or shrinks. We thus seek the 
yj ~ ره‎ relationship applicable to every x. 
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Plane Flow 
From Equations 4.4 and 4.2, it can be shown that 


oq 
ys / 5% = I(say). (4.48) 
o pu 


Thus, knowing the initially set values of w; and о, ;, y; and yc,; can be estimated. 
Note that we; and p u will change with x. Therefore, y will also change with x. 


Axisymmetric Flow 
In this case, from Equation 4.45, it follows that 


UH Fine لوو رن‎ р) )4.49( 


pu 
and, therefore, from Equation 4.48 
I = )4.50( 
The solution to this quadratic equation suitable for computer implementation is 
2I 
5 rit (+21 cosa) ^ לט‎ 


where J is given by Equation 4.48. Now, knowing y; and yc,; in this manner, r; 
and rc, ; can be evaluated using Equation 4.45. 


4.6 Boundary Conditions 


At the E and I boundaries, three types of boundary conditions are possible: sym- 
metry, wall, or free stream. We discuss them in turn. 


4.6.1 Symmetry 


There can be no mass flux across the symmetry plane. Also, 0 /0n|y = 0, where 
suffix b denotes the E or I boundary node. This implies that 


Фь = Pnp апа ть = 0), (4.52) 


where suffix nb stands for near-boundary node. A further consequence of the 
my = 0 condition is that 01/08 = 0 or yy = constant. The boundary condition 
can be effected by setting 45 = 0 at the I boundary or AN;y_; = 0 at the E 
boundary. 


4.6 BOUNDARY CONDITIONS 


4.6.2 Wall 


The term wall signifies a solid boundary. However, it must be remembered that 
when a gas flows over a liquid surface, the gas-liquid interface too will act like a 
wall. For different Ф, the wall boundary conditions are also different. We consider 
them in turn. 


Velocity Variables Ф = u or w 
For these variables, 


Ub = wall, Wp = Wwall- (4.53) 


Thus, if the surface is rotating about the axis of symmetry (see Figure 4.1) with 
angular velocity Q, then the surface fluid velocity will be wwall = rı Q. Similarly, 
the streamwise velocity will always be zero unless the surface itself is moving with 
velocity uwan. Equation 4.53, therefore, signifies the no-slip condition. 

In some circumstances, a fluid may be injected (by blowing) into the boundary 
layer or the boundary layer fluid may be withdrawn (by suction) through the wall. 
Alternatively, in case of evaporation or surface burning, mass will be transferred into 
the boundary layer. In all such cases mp is known or knowable and the consequence is 


Wo (x) = Wp (x — Ax) — rp my Ax. (4.54) 


Thermal Variables Ф = T or h 
For these variables, typically two types of conditions are specified. In the first, the 
value of the variable itself is specified. Thus, 


Ty = Twa (Œ), hv = Awa Œ). (4.55) 
In the second, the heat flux дь is specified. Then, at the I boundary, for example, 
k oh дА 
= — — — 三 -三 下 三 
у=0 Cp ду у=0 ду 


(4.56) 











у=0 


The flux boundary condition is effected by adding дь Ax to ће source term of 
Equation 4.43 for j = 2 and, further, by setting 45 = 0, the values of T, or Ap can 
be extracted in the usual manner. A similar procedure is adopted if дь is specified 
at the E boundary. 

In a chemically reacting boundary layer, the mass transfer flux at the wall my is 
given by 

дор oT 
т, = (Ap —hyy! | يضرم‎ SE e+ ב‎ , (4.57) 
2 oy ду 15=0 
where Ar is the enthalpy of the mixture deep inside the I boundary. If ће Lewis 
number is taken to be unity (1.е., Pr = Sc) or a simple chemical reaction (SCR) 
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is assumed with equal specific heats then this relationship can be simplified 
to [33] 
07 


тү = (hy = hr) Г у? (4.58) 
у=0 


Knowing жү, boundary condition ль can be extracted. 


Mass Transfer Variables Ф = cy 
The most common boundary condition [33] for these variables at the I boundary, 
for example, is 
тү = rm = (окъ og) Гк ell (4.59) 
ду |y=0 

where о, т refers to the mass fraction deep inside the I boundary. The suffix T, thus, 
represents the transferred substance state and ок т must be known. Equation 4.59 is 
again a flux condition, therefore, it can be treated in the manner of the gb condition 
just described. Again, from the converged solution, окъ can be extracted. 

When heterogeneous chemical reactions occur at the wall, m is typically given 
by the Arrhenius relationship, which yields 


ть = f (орь, To). (4.60) 


The exact implementation of the boundary condition for a heterogeneous reaction 
requires modification of Equation 4.59. This is explained later through an example 
of carbon burning (see Equation 4.129). 

In problems involving evaporation or condensation, the value of окъ itself can 
be specified from the equilibrium relation (or saturation condition). 


ok» = f (To). (4.61) 


Thus, in mass transfer problems with or without surface chemical reaction, mp can 
be known and this knowledge can be used to evaluate уь from Equation 4.54. It is 
important to remember, however, that the most general problem of mass transfer is 
usually quite complex and, therefore, several manipulations are typically introduced 
to simplify the boundary condition treatment [33, 38]. 


4.6.3 Free Stream 


The free-stream boundary condition has relevance only when external! boundary 
layers are considered. The free stream is really a fictitious boundary and is identified 


! [n internal flows, only wall or symmetry conditions are relevant because in these flows the flow 
width is a priori known. Thus, for developing flow between two parallel plates a distance 2 apart, 
for example, the flow width b remains constant with x. However, in 2D plane diffusers or nozzles, 
b may vary with x but still be known a priori. 


4.6 BOUNDARY CONDITIONS 


with the notion that the variation in Ф in the transverse direction asymptotically 
approaches a value ®, (say) there. Thus, the fictitious notion of a boundary layer 
thickness is associated with 
Ф — Ф 

————— = A, (4.62) 

Do > Ф| 
where suffix I refers to the inner boundary (wall or symmetry) and А is typically 
taken to be 0.99 by convention. Note, however, that this boundary layer thickness 
will be different for different meanings 01 © and the magnitude of thickness typically 
depends on the Prandtl number? Pro defined as 


Phea (4.63) 


The Prandtl number is a property of the fluid. In fact, in Table 4.1, we may replace 
k/ Cy by u/Prr and p Dy by u/ Pro. 

There is one further notion associated with the free stream. If we assume the 
E boundary to be the free boundary (see Figure 4.1), the flow region above the 
boundary can be taken to be a region in which there is no transverse convection or 
diffusion and 


Oy = Oy (х), (4.64) 


where Ф.о (x) is specified. However, the physical location where this boundary 
condition is to be applied 15 not a priori known because of the asymptotic nature 
of variation of Ф in the vicinity of this boundary. To circumvent this problem, 
Patankar and Spalding [50] relied on estimating the entrainment rate (—mg) into 
the boundary layer that occurs from the fluid above the E-boundary. 
Thus, as previously mentioned, since there is no net flux of Ф in the transverse 
direction, from Equation 4.17, it follows that 
(a + b e)g = . | ב‎ . (4.65) 
E 


= с 
Olp до | ₪ 








However, at the E boundary, w = 1. Therefore, 


0 
а bo)g =4+5= val Е, (4.66) 


Thus, Equation 4.65 can be written as 


дүк y әФ\! ] 800] | ו‎ 
ax H \ дф до С 90 0 ШЕТ; С эф 


= 一 一 一 rez | = -rere )4.67( 
У 





2 The term Prandtl number applies to variables Т апал. When Ф = wi, the appropriate dimensionless 
number is called the Schmidt number (Sc). For velocity variables, of course, Pra = 1. We thus use 
Pra generically to cover all Bs. 


83 


2D BOUNDARY LAYERS 








e אז‎ +1 
Ay 
E Boundary JN 
Ay Figure 4.4. The grid construction near the E 
boundary. 
Ф JN-1 








Now, to estimate the required mE, we adopt the following special procedure. 
Since the E boundary is located at j = JN (see Figure 4.4), 


0 дФ 00! 96 | 06 
ES |" Га | = (2) 0 了 十 | гум. (4.68) 
0 中 ду | אז‎ ду ду ду ду jy 


However, near the E boundary, 01 6 אק |ע9/‎ can be set to zero. Now, let Ay be the 
distance between the JN and JN — 1 nodes. We next construct an imaginary node 
JN + 1 at Ay above the E boundary. Then, 














06 |  Фуун — Флм-1 
ду lan 2 Ay | 
024 Ф —2Ф Ф у 
_ א‎ JN + Фуу 0 )4.69( 
ду? | א‎ Ay? 





Noting that Ф ןא‎ = Фуу = Фо, we can simplify the derivative expressions fur- 
ther and, therefore, Equation 4.68 can be written as 











0 дФ Г 2 Г 
- |n. | Rl. ee 21 с И (4.70) 
дФ ду | אז‎ Ay |yy | Yn — YJN-A 
Thus, from Equation 4.67, since куу = rg 
. 19 pA 
вна VE. =. (4.71) 
rg Ox Улм — JJN-1 
Using the above estimate, it follows that 
2rgl'ogA^ 
Ve (x) ورت‎ (x — Ax) LELEN (4.72) 


Улм = YJJN-A. 
With this estimate, it is now possible to evaluate coefficients in Equation 4.43. This 
15 because, when the E boundary is a free boundary, the I boundary can only be a 
wall or a symmetry boundary for which y(x) is already known. 

Equation 4.71 is of course an approximate formula for mg. To derive an exact 
formula, we note that l'a will be different for different Фѕ and, as already noted, 
the respective boundary layer thicknesses will also be different. Our interest lies in 


4.7 SOURCE TERMS 
selecting that Ф for which the thickness is /argest. Usually, the largest thickness 
will correspond to the largest Го, and for this selected Ф, we evaluate 


_ אנ6|‎ = Флм-1| 
АФ* \ 


R АФ* = 10-3 (say), (4.73) 
where АФ* 15 a sufficiently small reference quantity. Since Equation 4.43 15 it- 
eratively solved, Patankar [52] has suggested the following formula for exact 
evaluation: 


mig (exact) = Me sta x R”, (4.74) 


where, from computational experience, 7 ~ 0.1 is found to be a convenient value 
in most cases. Thus, when Equation 4.43 has converged, We, as evaluated from 
Equation 4.72, will provide a correct estimate of total mass flow rate Vg; = We 一 үл 
through the boundary layer at the given x. Once this mass flow rate 15 known, the 
y dimension and hence the largest boundary layer thickness among all s can be 
estimated. 


4.7 Source Terms 


4.7.1 Pressure Gradient 


In external boundary layers, the pressure gradient is specified or indirectly evaluated 
from 


dp d Us, 

ERE © qx’ (4.75) 
where U» (x) is specified. In internal flows, however, a special procedure must be 
adopted to specify the pressure gradient. The procedure relies on satisfying the 
overall mass flow rate balance at every streamwise location x. Thus, in a general 
duct, let Ay (x) represent the duct area between the axis of symmetry (I boundary) 
and the wall (E boundary). Then 


E 1 dw 
Аа = J r dy = VI | —ÀÓ (4.76) 
I 0 pu 
Therefore, 
A Ло; 
D eue (constant) — 2 ке (4.77) 
Wel زلا زم‎ 


The task now is to replace и; in terms of the pressure gradient. To do this, 
Patankar [52] writes the discretised version of the momentum equation as 
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where ру is the pressure gradient and D; contains source terms arising from other 
body forces. To solve this equation by TDMA, let the postulated equation be 


uj = ربزلا رك‎ В;— Куру, (4.79) 
where ןא‎ = RN = 0. Then, the recurrence relations will take the following form: 
(e pe 00-15 ог ATA 
^ DEN’ d DEN * ^? DEN 
where DEN = AP; — AS; Aj... Note that A(2), B(2), and R(2) can be recovered 


from Equation 4.78. Therefore, the coefficients in Equation 4.80 can be determined 
for j = 3 to JN — 1 by recurrence. Now, let u; be further postulated as 








‚ (4.80) 


TE وق صو‎ (4.81) 
where, again by recurrence, F; and G ; can be determined for j = JN — 1 to 2 by 
Fy = Aj Fj + Bj, |^ رك = ره‎ Giri + Rj, (4.82) 


where A(J N) = G(J N) = 0. Thus, it is possible to replace u ; in Equation 4.77 by 
Equation 4.81. The replacement yields a nonlinear equation in px: 
Ao; 
pj (Fj — Gj px) 


This equation can be solved by Newton-Raphson iterative procedure: 


= С = 0. (4.83) 








AT‏ ) بي 
Px = Px ЕЯ S2 ,‏ 
Aq;‏ 
— = ]5 
pj (Fj — Сурх)‏ .2 
Ao; G;‏ 
me (4.84)‏ 7—,$ 


pj (Fj — Сур)? 
where р” is the guessed pressure gradient. Iterations are continued until |C 一 91| > 
10-4 C. Usually, about five iterations suffice. 
Finally, we note that in free-shear flows, the pressure gradient is zero. 


4.7.2 Q” and А, 


The source terms in the energy and mass transfer equation depend on the problem 
at hand. In general, however, 


n 2 а р 2 
0 = Оша P Qa T UP, 二 БУ T Oma. (4.85) 


where Orad = д4аа,у/ду represents the radiation contribution, Qa repre- 
sents the generation rate due to endothermic or exothermic chemical reac- 
tions, u By = u(9u/8y) represents the viscous dissipation effect, D p/Dt = 


4.8 TREATMENT OF TURBULENT FLOWS 


uðp/ðx represents the pressure—work effect in steady flow, and Omg = 
д/ду {oan о Редор/ду)ћ} represents the contribution of species diffusion 
mass transfer having specific enthalpy hx. If hg equals mixture enthalpy Л then 
Oma = 0. 

When no chemical reaction is present, А; = 0. However, fora reacting boundary 
layer, Ry will be finite for each species because each may be generated via some 
reactions and destroyed via some other reactions among the postulated chemical 
reactions. Very often, for gaseous fuels and for highly volatile solid/liquid fuels, 
an SCR can be assumed [73]. The SCR is specified as 


1 kg of fuel + Ry kg of oxidant — (1 + Ry) kg of product, (4.86) 


where Ry 1s the stoichiometric ratio for the fuel under consideration. Thus, there 
are three species and one must specify Аһ, Rox, and Rpr. However, in an SCR, 
An = Rox/Rst = —Rpr/(1 + Ку) so that no net mass is generated or destroyed as a 
result of chemical reaction. This enables construction of a conserved scalar variable 
V = Of — Фо / Кы = Of + Opr/(1 + Rs) when mass diffusivities of all species 
are taken equal. Thus, one may now solve only for wm and V with Ry = instead 
of three variables. Further, Oo, = | Rm] A H, where AH, is the heat of combustion 
of the fuel. The value of Rn is obtained from a reaction rate law 





E 
Rr = Rea kin = -4 ехр (- ) WF, 7 (4.87) 


К.Т 
where, preexponential constant А and constants E, m, and n are specified for the 
fuel [82] and R, is the universal gas constant. 

Ifturbulent reacting flow is considered then the effective Р, is given by a variant 
[44] of the eddy-breakup model due to Spalding [74], 


Wox Al Wprod 
Ry’ (1+ Re)’ 





Rr = 一 pm i min {4 СО, А к) , (4.88) 
е 


where А = 4 and A’ = 2. The postulated arguments in favour of this expression 
are beyond the scope of this book. 


4.8 Treatment of Turbulent Flows 
In turbulent flows, Го in Table 4.1 will assume an effective value. Thus, following 
Equation 4.63, we have 


M Ht 
Pre Pree 





Vo ef = (4.89) 
where suffix t denotes the turbulent contribution. The task now is to represent u, and 
Pr, œ via modelled expressions. This exercise, called turbulence modelling, implies 
validity of the Boussinesq approximation for turbulent viscosity. Although there 
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are many variants, all turbulence models of this type stem from a dimensionally 
correct representation 


щ x plv, (4.90) 


where v’ is the representative velocity fluctuation scale in the transverse direction 
y and / is a representative length scale. Two turbulence models used extensively for 
boundary layer calculations are described in the following. 


4.8.1 Mixing Length Model 


Since v' is responsible for transverse momentum transfer, it may be written in 
dimensionally correct form as 








9 
יי‎ (4.91) 
ду 
so that 
9 
in = pln |5 | (4.92) 








where ln is called Prandtl’s mixing length. Now, because the velocity gradient can 
be evaluated from the solution of the momentum equation, Im must be prescribed to 
complete evaluation of us. Kays and Crawford [33], after extensive investigations 
of a variety of wall-boundary-layer flows have prescribed the following formulas: 


1 y" for ~ > 2 4.93 
K y exp "x FH Or 7 < 0.2, (4.93) 
0.0855 for = = 02, (4.94) 


where y is the normal distance from the wall, 5 is the velocity-boundary-layer 
thickness and к = 0.41. Further, 


ит Tw ди 
y+ = E S 0, = /—, т = ш |ә. (4.95) 
v Vp ду 


Finally, the value of А? is sensitised to effects of suction or blowing and local 
pressure gradient in a generalised manner as 





At = 25 [а {ut +2 [(جس + 1)/*ק‎ +1[ (4.96) 
where 
dp —0.5 0 
р Se (туо) 1 vy T. (4.97) 


and a = 7.1, b = 4.25, and, c = 10.0. If p+ > 0 then b = 2.9 and c = 0. 


4.8 TREATMENT OF TURBULENT FLOWS 


Laminar-to-Turbulent Transition 

To predict laminar-to-turbulent transition, the effective value of I’ is written as 
Ht 

Pro Pri o \ 





Do ef = (4.98) 


where the intermittancy factor Y is given [1] by 


X — Xts 
r-i-ep|-5 (zm JE (4.99) 
Эде 一 Xts 


In this equation, хь and xte denote the start and the end of transition, respectively. 
When א‎ = хе, Y = 1 anda fully turbulent state is reached. For x = хь, Y = 0 and 
the flow 1s laminar. There are several empirical relations proposed in the literature 
for estimating хь and xte; here, two will be given. 


Abu-Ghannam and Shaw Model 
In the Abu-Ghannam and Shaw [1] model 


ый 7 
Кер» = 5 = زور‎ + oxp |m (1-а). (4.100) 
р 


where m (К > 0) = 6.91—12.75K + 63.64K? and m(K < 0) = 6.91- 2.48K 一 
1227K? and К = — 82/v (d Ux/d x). Here, 525 is the boundary layer momentum 
thickness at x = х. These relations thus identify хь. The value of xte is identified 
with 





Voo م‎ 
Xt = Хв + 4.6 — —, (4.101) 
ио В 
where В(К < 0) = 1, В(К > 0) = 1 + 1710 К! exp —(1 + Tu), and 00 = 
10 (2.7 — 2.5 Tu?9) (1 + Ти?5)-!. Here, Ти is the turbulence intensity in the free 
stream. 


Cebeci Model 
In the Cebeci [4] model 
22400 
Res, = 1174 (1+ ZRO) mat (4.102) 
€x 
хе = хь + 60 Re, ?P, (4.103) 


where Re, = Us x / v. 


4.8.2 e-e Model 


In this model, the turbulent viscosity is determined from solution of two partial 
differential equations for scalar quantities e (turbulent kinetic energy) and > 
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(turbulent energy dissipation?). Thus, 


e 
ш = C, p —. (4.104) 


Fortunately, the modelled equations for e and e can also be cast in the form of 
Equation 4.1. Thus, we have 


Turbulent Kinetic Energy Equation 








$ =e, VE cm B eG -pë (4.105) 
and 
Energy Dissipation Rate Equation 
Ф = є*, Га = + LO 
Se = ICG- pe] E2vin ey (4.106) 
where 
e*=e-2v eae (4.107) 
and 
2 
G = بد‎ (=) . (4.108) 


In these equations, Launder and Spalding [40] specify Pri, = 1, Pree = 1.3, 
C; = 1.44, 


—3.4 
= 0. 一 一 -一 4.109 
C, = 0.09 exp la m sl ( ) 


and 
C, = 1.92 [1 — 0.3 exp —Re |, (4.110) 


where the turbulence Reynolds number Re; = ]4,/]4. The е—є model described 
here, called the Low Reynolds number (LRE) turbulence model, permits applica- 
tion of boundary conditions е = є* = 0 at the wall. Further, the model is equally 
applicable to prediction of laminar-to-turbulent transition and one need not in- 
voke the intermittency factor required in the mixing length model. In fact, Jones 
and Launder [30] have successfully applied the model even to the case where a 
turbulent boundary layer reverts to a laminar boundary layer becuase of strong 
free-stream acceleration. Several changes to the e-e model have been proposed by 
different authors. The more recent among these, for example, are listed in [9]. 


3 Here p є is the turbulent counterpart of the u ©, term introduced in Equation 4.85. 


4.9 OVERALL PROCEDURE 


4.8.3 Free-Shear Flows 


In free-shear flows, the mixing length is given by 


Im = f OE — у), (4.111) 


where the E boundary is free and the I boundary is the symmetry axis. The value of 
constant 6 depends on the type of flow. According to Spalding [78] 8 = 0.09 for 
a plane jet, 6 — 0.075 for a round jet, and 6 = 0.16 for a plane wake. In general, 
however, 6 must be regarded as an arbitrary constant whose value is determined 
from experiment. 

When the 6-6 model is used, Equations 4.105 and 4.106 are directly applicable. 
However, because of the absence of a wall, there will be no region where Re; — 0. 
Also, the wall-correction terms 0/6 ע0/‎ and 2 v ш (02u/8y? vanish. As such, the 
model will reduce to 

Ht 








=e, Г = u+ ‚ Se= © pe, (4.112) 
Pire 
Ш Є 
Ф = є, Г, = и + ， Se=- [C1 G - [1 (4.113) 
Pree e 


with C; = 1.44, C; = 192, C, = 0.09, Prie = 1.0, and Prie = 1.3. This set is 
called the High Reynolds number (HRE) model. 


4.9 Overall Procedure 


4.9.1 Calculation Sequence 


The previous sections have provided all the essentials to construct the calculation 
procedure. This is listed in the following. 


Evaluations at хо 
І. Choose xo, where the initial profiles Ф (y;) are specified for 7 = 1,2, ..., JN 
for the chosen J N. 
2. Calculate r; knowing o (xo). 
3.Set x, = xo and evaluate w; (j = 1,2, ..., JN) from specified и; for a chosen 
value of y. This sets y? and hence үр. 


Begin a New Step 

4. Choose Ax so that ха = Xu + Ax. Calculate ру, uj, and Cp, from appropriate 
known functions of scalar Ф". Specify or calculate rij or rig as described in 
Section 4.6. 

5. Choose relevant Ф and calculate coefficients and source terms in Equation 4.43 
using upstream values. Note that if Ф = и, the pressure gradient for internal 
and external flows must be appropriately evaluated. Now solve Equation 4.43 
using TDMA. 
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6. Reset уу, гу using the u; just calculated. Also reset yy for a free boundary 
(b = E or I). 
7. Go to step 5 and repeat until convergence of all relevant Ds is reached. 
8. Calculate integral quantities 81, 02, Се, Sty, etc. 
9. Set x, = ха and Фр = Фр and return to step 3 to execute a new step. 
10. Continue untill the domain of interest in the x direction is covered. 


4.9.2 Initial Conditions 


For internal flows, the flow width at x = хо = 0 is known and it is easy to specify 
all $(y;). For external wall boundary layers, the initial profiles by necessity are 
to be specified at x — xo to avoid singularity at x — 0 where the boundary layer 
thickness is zero. A suitable choice of xo can be made assuming Re,, — 10? (say). 
If and when experimentally measured starting profiles are not available, one may 
choose the generalised polynomial velocity profile used in the integral method of 
laminar boundary layer analysis: 


u 2 
一 | =2n-2y cm" -c-2[n-35 + ث3‎ & v]. (4.114) 
Woo xg 6 
where  — y / ô and 
8? dU. 
8 )4.115( 
v dx 


Xo 

With reference to Figure 4.1, the region 0 < x < хо will typically connote a 
stagnation flow region for which à = 7.052 and ô ~ 2.65 xo Re. If one is dealing 
with a flat surface, however, one may set А. = 0 and evaluate 6 ~ 5.83 xo Ке 05 [65]. 
Thus, one is now free to choose the y; distribution and evaluate и, from equation 
4.114. 

With these specifications, calculations can continue from the laminar region 
through the transition region and ending in the turbulent region. If, however, the 
flow was turbulent from the start of the boundary layer, it is advisable to use an 
experimentally generated velocity profile. Alternatively, one may use 


= (2). (4.116) 


и 


U oo 





Xo 
where 8 ~ 0.37 хо 726292. Similar starting profiles for other ®s can also be pre- 
scribed using results from the integral method. For example, for a scalar variable 
s = Л or ок, the initial profiles may be specified as follows: 

2 = 21-2 р + ne (Laminar) 
Xo 


=n!" (Turbulent), (4.117) 
where ns = y/ôs and 6, = 6/ Pr or ô/ Sc. 


Soo — Sw 





4.10 APPLICATIONS 


For free-shear flows, again xo must be chosen to avoid the elliptic flow region 
very close to where a jet or a wake originates. For advice on the choice of xo and 
the u(y) profile, the reader is referred to Schlichting [65]. 


4.9.3 Choice of Step Size and Iterations 


Iterative calculation is required to deal with nonlinearities arising out of implicit- 
ness. In the present procedure, nonlinearities arise from four sources: 


1. They can arise from dependence of coefficients and sources in Equation 4.43 
on other scalar ds. Thus, the source term A; in the equation for wk may depend 
on Т, and р, and l'a may depend on a, and T. 

2. Ata downstream station, y; are not a priori known and therefore the values Ayn, 
Ay; required in several evaluations are not known. These y;s can be evaluated 
only after the 24 profile is established. 

3. Inexternal boundary layers and free-shear flows, the flow width at a downstream 
station is not known and we wish to select the largest width among all s. This 
15 done via Equation 4.74. 

4. In internal flows, the pressure gradient is not known at a downstream station. 


By choosing a small enough Ax, one can make the procedure completely non- 
iterative. This can be achieved by evaluating AN, AS, and S in terms of upstream 
values. We, however, prefer partial linearization. Thus, whereas the different 9 
required in the evaluation of AN, AS, and S are taken from the upstream station, у, 
are established through an iterative solution of equations for all relevant s. With 
this choice, experience shows that we may choose 


Ax = 0.2505, (4.118) 


This choice ensures both economy and accuracy. However, situations may arise 
when larger step sizes are also permissible. 


4.10 Applications 


Flat Plate Boundary Layer 

Figure 4.5 shows computed results of friction coefficient C f; and Stanton number 
St, fora flat plate boundary layer. Computations were begun with a laminar velocity 
(with ג‎ = 0 in Equation 4.114) and temperature profiles prescribed at Re,, = 10? 
with JN = 102. Such a large number of (nonuniform) grid points are necessary 
to resolve the profiles in the vicinity of the wall and in the turbulent range. In the 
mixing length model, transition 15 sensed by the Cebeci model (Equations 4.102 
and 4.103). In the LRE model, the transition 15 sensed automatically. It is seen that 
the mixing length model predicts transition at a higher Re, than the LRE model. 
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Figure 4.5. Flat plate boundary layer. 


The predicted values of Cf; and St, are compared with well-known correlations 
derived from integral analysis. The agreements are satisfactory. 

Figure 4.6 shows the velocity and temperature profiles in wall coordinates. 
The predictions of the mixing length model [Figure 4.6(a)] nearly agree with the 
two-layer prescriptions of the law of the wall [33] except in the very outer layers. 
The predictions from the LRE model [Figure 4.6(b)] are somewhat higher than 
those of the law of the wall. The dimensionless temperature is defined as Tt = 
T mi Ty) p Cp Ur / qdw- 


Burning of Carbon 

We consider burning of carbon in a laminar plane stagnation flow of dry air so that 
the free-stream velocity varies as Uw = Cx. The surface is held at constant wall 
temperature Tw. The objective is to predict the burning rate of carbon as a function 
of Tw. The postulated chemical reactions at the surface are [82] as follows: 


Reaction 1 
C* + ج و0‎ CO, AH, = 32.73 MJ/kg of C, 
593.83 T, exp (—18,000/ T.) m/s, Ty < 1,650K, 
"e (2.632 x 1075 Ty — 0.03353) Tą (m/s), Tw > 1,650K, 
mus = علوم‎ ic kg/m? —s (4.119) 


2 


where 7; is the near-wall gas temperature, 
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Figure 4.6. Velocity and temperature profiles at Re, — 5 x 106. 


Reaction 2 
1 
C* + 2 O > СО, АА = 9.2 MJ/kg of © 
ky = 1.5 x 10° exp (— 17,966/Ty) m/s, 
М, 
ra", = 2 pwk wo  kg/m’-s, (4.120) 

Mo, 
and 
Reaction 3 


C* + CO: > 200, AH; = -14.4 MJ/kg of C, 
з = 4.016 x 108 exp (—29,790/Tw) m/s, 


© 0000  kg/m?-s. (4.121) 
СО» 





The above 3 reactions are surface reactions. In addition, we have the following 
gas-phase reaction: 
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Reaction 4 
1 
CO + 2 O2 > СО, AH, = 10.1 MJ/kg of CO, 


k4 = 224 x 10? exp (—20,137/Т) s^, 


да 0.25 in 0.5 
Rco = p!” ka معن‎ ( =) (2 | (4.122) 
Мо, סו‎ 





where wy, is treated as a parameter of the problem. The steam mass fraction is, of 
course, small enough so that it does not take part in other possible reactions. These 
rate laws are taken from Smoot and Pratt [68] and Turns [82]. 

The problem thus requires solution of equations for Ф = и, co, , осо,, oco, and 
enthalpy Л. We define h = C,(T — Т) so that the source terms for each of the 
variables are 








Sy = pC? x AV, (4.123) 
1 Mo, 
боо, = —5 Rco AV, (4.124) 
2 Mco 
Mco 
aco, = Mco Rco AV, (4.125) 
Soco = — Rco AV, (4.126) 
S, = Rco AHa AV. (4.127) 


The total carbon burn rate is given by 
n = ту + Mow + зү. (4.128) 


To effect the wall boundary condition for mass fractions, we modify Equa- 
tion 4.59 to account for surface reaction: 


: 2 док 
№" = (ом — Фит). ( Dy = 





+т” |, (4.129) 
ду у=0 ) 


where жї is the surface generation rate of species k and ок т = 0 for all species. 
After discretisation, the wall mass fractions can be deduced from 





D/A w— (т 0.5 m, .) Mo, /M 
6205 w 一 B / Y TOL CA (йс = 5 eaw) o c 0 (4.130) 
p D/A^y + mz 
dust D/Ay осо, nw + (йу — зм) Mco,/ Mc. (4.131) 
p D/Ay + mz 
D/A w n". 2m", ) Mco/ Mi 
T о D/ ^y wconw + (Moy + 2m) Mco/ c (4.132) 





p D/Ay + m; 


4.10 APPLICATIONS 


and the enthalpy at the wall boundary is given by 
hy = Cp (Tw — Та). (4.133) 


With this enthalpy, we account for the surface heat generation via the source 
term S; for the near-wall (suffix nw) control volume. Thus, for j = 2 


Sn = Sh + | Cpc(Tr — Tet) + Э ть „an ax (4.134) 


where Tr = Ty and the carbon specific heat is Cp, = 1,300 J/kg-K. In the free 
stream at the E boundary, we specify Us; = Cx, Т = 298 К, оо, о = 0.232, 
60000.0 = 0.0, and осо, оо = 0.0. The reference temperature is taken as Лек = To 
so that ho. = 0. 

To start the computations, it is assumed that for the starting length xo (Rex, = 
1,000), the surface is inert. So, the inlet profiles for mass fractions and enthalpy 
are easily specified as uniform, corresponding to the free-stream state. The velocity 
profile is of course derived from Equation 4.114 with A and 6 corresponding to the 
stagnation flow condition. Computations are now continued till Re, — 10? so that 
the combustion is well established and the burn rate is constant with x. The density 
and viscosity are assumed to vary over the width ofthe boundary layer according to 


| P Mwix 








4.1 
Rar: سن‎ 
T X? [303 + 110 
= 18.6 x 10-6 N-s/m? 4.1 
P " (s) | TIUS הר‎ E 


where p — 10? N/m? and R, — 8,314 J/kmol-K. The molecular weight of the 
mixture is evaluated from 





ai 
wo, , يمع0)‎ , €CO , ON; m | | (4.137) 


Mix = 
2 Es Mco, Mco Mw, Mmuo 


where wy, = 1 — eo, — oco, — eco — wp,o. The gas specific heat is, however, 
assumed constant and is calculated from C, = 919.2 + 0.2 Ty J/kg-K and Tm = 
0.5 (7, + Tœ). Computations are carried out for 800 > Tw < 2,000 К and Pr = 
0.72. The value of the Schmidt number is uncertain in this highly variable property 
reacting flow. Following Kuo [38], we take the Schmidt number for all species as 
0.51. To facilitate evaluation of Асо, the water vapour fraction is taken as он,о = 
0.001, but the vapour is assumed chemically inert. 

For the purpose of comparison with published [38] experimental data, the pre- 
dicted burning rate is normalised with respect to the diffusion controlled burning 
rate. Thus we form the ratio 
т (predicted) 


BRR — : ; 
m (dc) 


(4.138) 
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Figure 4.7. Variation of BRR, оо, w, осо» м› and осо м With Ty. 


where the denominator is estimated* for the stagnation flow from [33] 


0.4 0.1 
ral’ (de) = I -- Re In(1 + B) (=) (2) (4.139) 
and the driving force В = 0.174. Figure 4.7 shows the variation of the ratio BRR 
with Ту. The experimental data for the burn rate are shown by filled circles. Data 
are predicted with (solid lines) and without (dashed lines) Reaction 1 to ascertain 
the influence of this reaction at low temperatures. It is seen that the experimental 
BRR has considerable scatter and exceeds unity, against expectation. However, this 
may be due to the normalising factor used by Kuo [38]. Nonetheless, the data show 
a mild plateau for 1,100 > Tw > 1,400. This tendency is nearly predicted by the 
present computations, particularly when Reaction 1 is included. For Tw > 1,350, the 
experimental data show a sudden rise that is again observed in present predictions. 
The predicted BRR — 1 at 1,800 К as expected. However, for Ty > 1,000 К, 
the present data grossly underpredict the experimental data; the underprediction is 
greater when Reaction | is ignored. 


4 Equation 4.139 is derived from Reynolds-flow model developed by Spalding [73] assuming fluid 
properties in the free-stream state and then corrected for property variations through the boundary 
layer. 


4.10 APPLICATIONS 


The predicted wall mass fractions for CO, О», and CO; are also plotted in 
Figure 4.7. The wall mass fraction co, w, starting from 0.232 at 800 K, decreases 
rapidly to zero at Tw ~ 1,300 K. Note that оо, у decreases more rapidly when 
Reaction 1 is included, as expected. The wall mass fraction осо, м gradually in- 
creases with temperature, peaks at Tw = 1,300 K, and then rapidly falls to zero. 
In this range where осо, у is significant, the BRR indicates a mild plateau after 
an initial rapid rise with temperature. The осо א‎ however, increases with wall 
temperature. At Ту > 1,300, CO evolution becomes significant, indicating domi- 
nance of Reaction 3. At very high temperatures, this reaction becomes the most 
dominant and combustion is now diffusion controlled with оо, у = осо, м = 0 
and wco,w — 0.406. Overall, Reaction 1 is important at low temperatures and 
Reaction 3 is important at high temperatures. It must be noted that although the 
tendencies predicted here are similar to the similarity solution for BRR obtained 
by Kuo [38], the quality of predictions in combustion calculations greatly depends 
on the accuracy of the assumed reaction-rate laws. 


Entrance Region of a Pipe 

We consider simultaneous development of velocity and temperature profiles in the 
entrance region of a pipe of radius R. The flow 15 laminar (Re = 500) and the 
fluid Prandtl number Pr — 0.7. An axially constant wall temperature boundary 
condition is assumed. In this axisymmetric flow, the I boundary coincides with the 
pipe axis and the E boundary with the pipe wall. Computations are performed with 
a JN = 25 nonuniform grid with closer spacings near the wall. The axial locations 
are determined from x = L (J — 1 / IMAX — 1)!°, where L = 0.2 x R x Reand 
Iis the axial step number. Figure 4.8 shows the computed variations of f x Re, 
Nu,, and velocity u at the pipe axis with x = (x/R)/ Re / Pr. Also plotted in the 
figure are previous numerical solutions for Nu, reported in [33]. It is seen that the 
present solutions match perfectly with the previous solutions. The f x Re product 
also varies as expected with asymptotic approach to 16.0. Similarly, the velocity 
и /u at the pipe axis also reaches 2.0 at large x”. 

Similar computations are now carried out at higher Reynolds numbers 
(1,000 > Re > 10,000) including the transition range. For this purpose, the LRE 
model is used and computations are performed with a JN = 47 nonuniform grid. 
Here, IMAX = 1,000 and L = 100 x D. Figure 4.9 shows variation of f, Nu 
(Pr = 0.7 and 5.0), and ui; /u with Reynolds number in the fully developed state 
(X/ D = 100). Itis seen that for Re < 1,600, the characteristics correspond to those 
ofa laminar flow (ui; / = 2.0). Accoring to the model, transition occurs abruptly 
and appears to extend up to Re ~ 2,500, as evident from the Nu predictions. The 
Uaxis/U ratio now drops suddenly from its laminar value of 2.0. At Re = 10,000, 
Uaxis/U = 1.246. For Nu, the expected trend is again observed. In the laminar range, 
Nu approaches the analytically derivable fully developed value of 3.667 for Tw = 
constant boundary condition for both Prandtl numbers. The thermal development 
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Figure 4.8. Entrance region of a pipe - laminar flow. 
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Figure 4.9. Fully developed flow and heat transfer in a pipe. 
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Figure 4.10. Variation of u* and Re; with y* — pipe flow. 


length is a function of Pr in laminar flow [33]. In turbulent flow, X/ D = 100 is 
sufficient for fully developed flow and heat transfer and, therefore, the predicted 
values of Nu match well with the well-known correlation Nu = 0.023 Re 5 رص‎ 


In the turbulent range, the friction factor also corroborates f — 0.079 Re 


well. 


—0.25 


Figure 4.10 shows the fully developed velocity profile in wall coordinates at 
Re — 3,000 and 10,000. In the transition range, the sublayer is thick. At Re — 
10,000, the predicted profile nearly coincides with the wall law up to yt = 30 and 
then departs in the outer layers. The figure also shows variations of turbulence 
Reynolds number Re; = HUtUVA. At Re = 3,000, the maximum value of Re; is lower 
than that at Re — 10,000. AII these tendencies accord with expectation. 


EXERCISES 


1. Starting with Equation 4.17, derive Equations 4.22 and 4.26 in their conserva- 


tive form. 


2. Verify Equations 4.37—4.40 through detailed algebra. 


3. Derive an equation for my sta, similar to Equation 4.71, when the free-stream 


boundary is located at the I boundary. 


4. Derive recurrence relations (4.80) and (4.82). 


5. Show that when Re, is large, the LRE model reduces to the HRE model given 


in Equations 4.112 and 4.113. 
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Figure 4.11. Flow over a spinning cone. 


6. 


10. 


Itis desired to calculate turbulent boundary layer development so that the initial 
velocity profile may be given by Equation 4.116. Choose a distribution of y; 
(0 > y < ô) such that (оу — ₪/( / (oj — (ן-/₪‎ = 1.2 for all j. 


. Consider flow across a long horizontal cylinder of radius R. It is desired to cal- 


culate boundary layer development near the forward stagnation point. Specify 
variation of œ and гү with x. Also specify the starting velocity profile. 


. In Exercise 7, it is of interest to calculate the mass transfer of an inert substance 


in the forward stagnation region. Specify the starting mass fraction profile and 
select the appropriate boundary conditions for the mass-fraction variable w and 
u. (Hint: Use the integral method to specify the w profile.) 


. Itis desired to calculate boundary layer development over a cone spinning with 


angular velocity 2 (see Figure 4.11). Write the governing equations and the 
boundary conditions at the I and E boundaries for this problem. Also provide 
initial conditions. (Hint: Assume thatthe spinning rate 1s high so that centrifugal 
and Coriolis forces must be considered. Also, 02/807 is not negligible. Hence, 
dp/dx will vary with y.) 


Consider an adiabatic wall 2 m high, as shown in Figure 4.12. The bottom 1 m 
is covered with a thick layer of highly volatile solid material having latent heat 
Ag. The fuel burns in stagnant dry air under natural convection conditions. 
Assume SCR (4.86) with reaction rate given by (4.87). 


(a) Write all relevant equations governing the phenomenon of burning along 
with their source terms. (Hint: Use the Boussinesq approximation for the 
buoyancy term.) 


(b) Write boundary conditions at the I boundary to determine the burning rate. 
Also write conditions at the E boundary. [Hint: In this problem, the adiabatic 
condition implies that 7 = Tr. Further, the burning surface temperature 
will equal the evaporation (or boiling) point temperature 7 and is a known 
property. Further, the SCR assumption implies that wa, = оох = 0 at the 
burning surface.] 
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ADIABATIC 
WALL 


Figure 4.12. Burning from a vertical wall. 


VOLATILE 
FUEL 





(c) Write initial conditions for each variable assuming pure natural convection 
heat transfer between x = 0 and x = хо. 


11. In the stagnation-flow carbon-burning problem described in the text, the water 
vapour was treated as inert and its mass fraction was held constant. However, 
water vapour can react with carbon, resulting in the following two additional 
surface reactions: 


C* + HO > СО + Н, 
C* + 2H, 一 СНА. 


The reaction rate of the first reaction 15 about twice that of Reaction 3 
(1.е., 2 k3). For the second reaction, k = 0.035 exp(—17,900/ Tw). Assuming 
OH;0,oo = 0.01, write the equations to be solved along with their source terms 
and boundary conditions. [Hint: You will need to postulate the following ad- 
ditional gas-phase reactions to approximately account for the presence of Н», 
НО, and CH4: 


1 
CH, 一 2 C2H4 + Ho, 


24,962 M95 
— 20.32 ? 1.97 5 1.07 _ 0.4 CH. 
Кен, = 10° 7* exp (-==) Pm cH, ®0, OH, undi ， 


C2H4 => 2CO+2H,, 


25,164 MÈ) 
== 17.7 _ Д 1.71 9 1.18 —0.37 C2H4 
Roots m 10 exp ( T ) Pm WCH, wo, Ocp, E: Mas,” 2 
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1 
Нә + שה‎ — 0, 


20,634 МО 
Rp, = 1016-52 exp (- ) m gr^ Oo.” one? | H5 , 





1.42 6 

Т Mo, Mc, 
with AHcp, = 50.016 MJ/kg, AHc,u, = 47.161 MJ/kg, and AHy, = 
120.9 MJ/kg. The reaction rates for these reactions are obtained from Turns 


[82].] 


5 2D Convection - Cartesian Grids 


5.1 Introduction 


5.1.1 Main Task 


In the previous chapter, we considered convective-diffusive transport in long 
(x direction) and thin (y direction) flows. This implied that although convective 
fluxes were significant in both x and y directions, significant diffusion fluxes oc- 
curred only in the y direction; diffusion fluxes in the x direction are negligible. We 
now turn our attention to flows in which diffusive fluxes are comparable in both x 
and y directions. Thus, the general transport Equation (1.25) may be written! as 


alp P) n 1 à(rq;) 





= $, pem] 51 
01 r dx 4 on 
where 
0 中 
qj = رولا م‎ Ф — шт (5.2) 


In Equation 5.2, the first term on the right-hand side represents the convective 
flux whereas the second term represents the diffusive flux. Note that suffix f is 
attached to the velocity appearing in the convective flux; the significance of this 
suffix will become clear in a later section. In Equation 5.1, r stands for radius. 
This makes the equation applicable to axisymmetric flows governed by equations 
written in cylindrical polar coordinates. When plane flows are considered, r — 1 and 
Equation 1.25 is readily recovered. By way of reminder, we note that Ф may stand 
for 1, u; (i = 1,2), из (velocity in the хз direction), wx, T or h, and e and є, and 
Tere is the effective exchange coefficient (see Equation 4.89). 

Flows with comparable convective-diffusive fluxes in each direction occur rou- 
tnely in most practical equipment although they are usually three dimensional. 
Here, only 2D situations are considered for convenience and because the primary 


! Note that o, signifying mixture density is now written as p for convenience. 
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Figure 5.1. 2D flow situation. 


objective 15 to learn the main issues of discretisation. Figure 5.1 shows a practical 
situation that can be represented by 2D equations (5.1). The figure shows flow at 
the connection between two pipes of different diameters. The flow is assumed to 
be axisymmetric. Immediately downstream of the pipe enlargement, the flow will 
exhibit recirculation and thus, in the absence of any predominant flow direction, 
convective-diffusive fluxes in the x, and x2 directions will be comparable. This 
implies that property ® at any x, in the recirculation region will be influenced 
by property values both upstream as well as downstream of xı. Similar two-way 
influence is also expected in the x» direction. Such two-way influences are called 
elliptic influences [49] and, therefore, Equation 5.1 is an elliptic partial differential 
equation.? 


5.1.2 Solution Strategy 


Before discretising Equation 5.1, we shall make distinction between the following 
two problems: 


1. the problem of flow prediction and 
2. the problem of scalar transport prediction. 


Here, scalar transport means transport of all ®s (из, c, T, h, e, є, etc.) other than 
velocities (Ф = и, из) that are vectors. Note that u3, although a vector, is included 
in the list of scalars. This is because variations in direction x3 are absent and, with 
respect to xı and x» directions, из may be treated as a scalar. The reason for this 
distinction between scalars and vectors is twofold. 

It is clear from Equation 5.2 that calculation of scalar transport will be facilitated 
only when the velocity field is established. In fact, if source S and the properties 


2 The reader will recall the equation a ®,, +25 ®,, +c ®,, = 5(Ф,, ®,, Ф, x, y), where, when 
the discriminant b? — ac = 0, the equation is parabolic; when b? — ac > 0, the equation is elliptic; 
and when b? — ac > 0, the equation is hyperbolic. 


5.1 INTRODUCTION 


p and Г were not functions of scalar ®s then the flow equations for ® = u1, u2 
will be independent of the scalar transport equations. This 15 the first reason for 
distinguishing the flow-field equations from other scalar transport equations. To 
appreciate the second reason, we first set out the equations governing the flow field 
(the Navier-Stokes equations): 














д 1 8 1 8 
يي لاه‎ е E =й, (5.3) 
01 r дхі r 0x2 
0(0и) 1 ] 0 
T AT {r pug uy} + i lr pumu} 
др 1 0 ди | 83 ди 
= е + ев = + Sy , 5.4 
au s Ox] ב‎ r 0x2 ב‎ ! ее 
д(ои 1 0 1 8 
(ош) + {r oun U2} + = —— {r рири} 
01 г Oxy r 0x2 
др 1 9 Qu» 1 9 Qu» 
== Я eff | + Su. 5.5 
eig Ox] EE 0X2 E * ( ) 


A few comments having a bearing on the solution strategy are now in order. 


1. In Equations 5.3—5.5, there are three unknowns (u1, u2, and p). Therefore, the 
equation set 15 solvable. 

2. In boundary layer flows, the pressure gradient 1s specified (external flows) or is 
evaluated via the overall duct mass flow rate balance (internal flows). In elliptic 
flows, however, др/дх and dp/dx2 are not a priori known. 

3. Thus, if we regard Equation 5.4 as the determinant of u; field and Equation 5.6 
as the determinant of uz field, then the pressure field can be established only via 
the mass conservation equation (5.3). The situation is somewhat similar to the 
case of internal boundary layer flows but is not as straightforward. 

4. The suffix f 15 attached to velocities satisfying the mass conservation equa- 
tion. The velocity field without suffix f may or may not satisfy mass conserva- 
tion directly although, in a continuum, it is expected that the и; and иң fields 
are identically overlapping and, therefore, the former must also satisfy mass 
conservation. 

5. The reader may find this distinction between the и; and ug fields somewhat 
unfamiliar. This is because most textbooks a priori assume a fluid continuum. 
Numerical solutions are, however, developed in a discretised space and the 
distinction mentioned here becomes relevant. This will become clear in a later 
section. 


These points reveal the fact that there 15 no explicit differential equation for 
determination of the pressure field with p (or its variant) as the dependent variable. 
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Such an equation, however, can be derived from explicit satisfaction of the mass 
conservation equation. In the sections to follow, the SIMPLE method for determi- 
nation of the pressure field is presented. This method was developed by Patankar 
and Spalding [51]. It is among the most extensively used methods in CFD practice. 
In fact, most CFD packages employ this method. The acronym SIMPLE stands for 
Semi-/mplicit Method for Pressure-Linked Equations.? 

The original SIMPLE method [51] was derived for Cartesian grids in which 
the scalar Фѕ (including pressure p) and the velocity vectors were defined in a 
staggered arrangement (see Figure 5.2). To understand this arrangement, consider 
typical node P (i, j) with the surrounding control volume whose faces are located 
at e, w, n, and s. In the staggered arrangement, pressure pi,; is stored/defined at 
the node P. The same holds for other scalars Ф; у. However, the vector иг (i, /) is 
stored at the cell face w and vector up (i, /) is stored at cell face s. Thus, the vectors 
and the scalars are stored in staggered locations. It is easy to identify appropriate 
control volumes surrounding the cell-face locations as shown in Figure 5.2. Thus, 
in the (i, j) address system, there are three partially overlapping control volumes. 

Now, the SIMPLE method requires that to determine the pressure field, the 
mass conservation equation must be satisfied over the control volume (ne-se-sw- 
nw) surrounding node P where р; ; is stored. Thus, using the ТОСУ method, the 
discretised version of Equation 5.3 is written as 


AV 
At’ 
(5.6) 


[Cor une — (pr لولمه‎ Axa + [(от us) — (or um)s] Axı = — (pp — pp) 


3 In compressible flows, р = p Rg T, where Rs is the gas constant, must be added to the equation 
set (5.3—5.6). This equation of state is used to determine density p. 


5.2 SIMPLE - COLLOCATED GRIDS 


where AV = rp Ax; Ax? and superscript o represents values at the old time. 
Superscript n is dropped for convenience. 

Equation 5.6 indicates that the velocities with suffix f appear at the cell faces 
of the control volume surrounding node P. Therefore, in SIMPLE-staggered, mo- 
mentum equations, Equation (5.4) 15 solved over control volume n-nW-sW-s and 
Equation 5.6 1s solved over the control volume w-wS-eS-e without explicit commit- 
ment to satisfy mass conservation over these control volumes. The overall strategy 
for solution of the flow equations is as follows: 


1. Guess a р! field and solve momentum equations (5.4) and (5.6) over control 
volumes surrounding cell faces to yield u^, and uf, fields. 

2. These fields, in general, will not satisfy the mass conservation equation (5.6). 

3. Derive a mass-conserving pressure-correction equation to satisfy mass conser- 
vation over the control volume surrounding node Р. 

4. Use the pressure correction p' so determined to correct the guessed pressure 
р! and velocities u^, and u^. 


For a complete description of the SIMPLE-staggered method, the reader is 
referred to [49, 51]. 


5.2 SIMPLE - Collocated Grids 


5.2.1 Main Idea 


Although the SIMPLE-staggered grid method enjoyed considerable success par- 
ticularly when Cartesian grids were employed, the procedure was found to be in- 
convenient when curvilinear or unstructured grids were to be employed to compute 
over ever more complex domains. Further, even on Cartesian grids, the process of 
discretisation required considerable book keeping because the dimensions of the 
control volumes of vector and scalar variables were different. 

Since the early 1980s, therefore, researchers began to explore the possibility 
of implementing the SIMPLE procedure using collocated variables. That is, the 
velocity and the scalar variables were to be stored/defined at the same node P (i, /). 
This, it was felt, would permit attention to be directed to a single transport equation 
(5.1), thereby reducing the book-keeping requirements considerably. 

Although convenient, this departure also brought within its wake a major diffi- 
culty with respect to the pressure-field prediction. It was found that if the pressure- 
correction equation as derived for staggered grids was used to predict pressure on 
collocated grids, the predicted pressure distribution showed zigzagness. Depending 
on the identified cause of this problem, different researchers (see, for example, [59]) 


^ [n the literature, the procedure with collocated variables is sometimes referred to as a procedure 
employing nonstaggered or collocated grids. 
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Figure 5.3. The collocated grid. 


proposed different cures with differing amounts of complexity. Here, we shall de- 
scribe the method developed by Date [14] that elegantly eliminates the problem of 
the zigzag pressure prediction. It will be shown in a later section that this matter is 
connected with the recognition of the need to modify the normal-stress expression 
as discussed in Chapter 1. 


5.2.2 Discretisation 


For collocated variables, we need to consider only one control volume (hatched) 
surrounding typical node P, as shown in Figure 5.3. Further, the cell faces are 
assumed to be midway between the adjacent nodes. As usual, using the IOCV 
method (d = r dx, ах»), we integrate Equation 5.1 so that 


n (*1[0(rqi) 0(r q2) Е п ре | (p) 
WES дх\ ы дх2 مما‎ = | [ |5 at Jar. (5.7) 


Now, replacing the qs from Equation 5.2, we can show that 








[Ce Ф, = de (PE = Фь)] m [Cy Pw - dw (Pp - $w)] 


+ [Cn o, = dn (DN m Фр)] - [Cw Pw = dw (Pp - 701 


AV 
= SAV – (0Ф – p^ dye, (5.8) 


5.2 SIMPLE - COLLOCATED GRIDS 


where the convective coefficients are given by 


Ce = бетеше Ах, Су = бугуну Ахо, 
C= Pnn Uf2,n /\ C. = Ds l's 25 AXi; (5.9) 


and the diffusion coefficients are 


1 еге Ax? Ге у Гу Ax? 
i=, diy = 一 一 一 一 一 
Axie AX|w 
Dern rg Ах Tere ss Ах 
d, — effin^n b d, ER effis^s 1 (5.10) 
Axon Ах 


Now, in terms of the notation just introduced, the discretised mass conservation 
equation (5.6) (with Ф = 1) can be written as 


ү АЎ 
(op — op) حم‎ + Се — Cw + Cn С, = 0. (5.11) 


Further, the expressions for СФ at the cell faces сап be generalised to account 
for any of the convection schemes introduced in Chapter 3. When this 1s done and 
Equation 5.11 1s employed, it can be shown that Equation 5.8 reduces to 








AP Фь = AE Dg + AW Фу + AN Фу + AS و‎ + D, (5.12) 
where 
AE = d, [А +max(—Pee,0)], Р. = Ce/de, (5.13) 
AW = dy [А + max (Pow, O], 已 ,= Cy/dy, (5.14) 
AN = d, [А + max (— Pan, 0([, Pen = Cn/dn, (5.15) 
AS = d; [A + max (Р, 0)], P4 = C,/d;, (5.16) 
pp AV 
AP = AE + AW + АМ + А5 + A —, (5.17) 
° Ay 
D=SAV+ +5 (5.18) 
At 
In these equations 
1 (UDS) 
max (0, 1 — 0.5 | P.I) (HDS) 
A = 
max {0, (1 — 0.1 | P.|)°} (Power) 
1 — 0.5 |Р, (CDS). (5.19) 


From the point of view of computer coding, the utility of this generalised rep- 
resentation for all variables (scalars as well as vectors) is obvious. 
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5.2.3 Pressure-Correction Equation 


In the collocated-grid SIMPLE algorithm, the nodal velocities are determined using 
Equations 5.12 written for Ф = и and из. The pressure gradients appearing in the 
source terms of these equations are of course evaluated by central difference [for 
example, др/дх\|р = (pL — piy) / (2 Axı), where р! is the guessed pressure field 
and / is the iteration number]. The task now is to correct the u! and р! fields such 
that mass conservation over the control volume surrounding node P is satisfied. To 
do this, and to remain consistent with the SIMPLE-staggered grid, we imagine that 
the momentum equations are also being solved for the cell-face velocities и’. The 
discretised versions of these imagined equations with underrelaxation will appear as 








га 
d جد‎ a Аки AV —— - п, + (1 —o)uh, (520) 
ult! 一 3 ו‎ +D! | +1 oo)u,, (521) 
12 了 Pop кук ax 12 f2， . 


where D. and D. contain source terms (if any) other than the pressure gradient, 
a is the underrelaxation factor, and the summation symbol indicates summation 
over all immediate neighbours of the cell-face location under consideration. Thus, 
when Equation 5.20 is written for cell face e, for example, running counter k refers 
to locations ee, Ne, w, and Se. Now, at iteration level / + 1, it is expected that 





aot!) 1 8 TNT 1 8 т 
01 r àxi {rp Иң бут, иу | = 0. (5.22) 


Substituting Equations 5.20 and 5.21 in Equation 5.22 we can show that 














(0+) 1 م‎ I 1 9 I ‚1 
.יס ה‎ M n] 
1 9 r o a i др 1+1 
= AP“ y Аки + AV ——— — DI 
r àxi | A P'n E pg t дх\ " 
1a | Реа ل‎ yl, 1+1 ap! І 
= | me prm E d as mt | 


To develop the pressure-correction equation, we introduce the following 
substitutions: 


Ho 4 / S, / loo / 
Ир — Ug t ug, ик = Up T Up, D =P + وم‎ (5.24) 
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where, رام‎ is the mass-conserving pressure correction. Thus, Equation 5.23 will 
read as? 





1 [m | 1 = з) 





r Oxy A Pun Ox] r 0x2 A pvo 0X2 
до!) 1 à Iu 1 8 IA ul 
= 3i түти {гр un} + Lac lr o ио} 
1 9 [p*'raAV 1 8 [p"!ra AV 
₪ DCN t A4 Dus “u "TOC AL айкы ы Ry, , 5 
[ Ox | Арип مم‎ 十 7 dx, A pun {2 ( ) 


where residuals per unit volume, Rn and Rp, are given by 


un, — I ומ‎ 1 
_ AP ug — У, Анипа D, др 








- | 5.26 
я АЁ И: د‎ 

_ АР ug- Y Anis Di, ap! (5.27) 
ир AV 0x) | 


The discretised version of the mass-conserving pressure-correction Equation 
5.25 will read as 


AP Рыр = AE рє + AW Paw HE AN Pan + AS Dag — тр + тв, (5.28) 














where 
diste pra Ax? | dni: po r?o Ax? 
A pti Я APH 8 
PR pr? а Ax? | P p+r? a Ax? 
Ар"? " АР“? 
АР = AE + AW + AN AS, (5.29) 
mp = ) ru]. — pus) AX2 


AV 
T (o Fus. = p" rup|) Axı + (оь! — pp) “Аг! (5.30) 


mg = AE Кш Axile — AW К, Axilw + AN К Ахә|һ = AS Rum Ах» |. 
(5.31) 
A number of comments with respect їо Equations 5.25—5.31 are now in order. 


1. On both staggered and collocated grids, the pressure is stored at node P and the 
mass conservation equation 15 solved over the control volume surrounding node 
P. Therefore, Equation 5.25 is applicable to both types of grids. 


5 [n deriving Equation 5.25, it is assumed that ל‎ Ak uj = Y, Ak ut; = 0. This is consistent 
with the SIMPLE-staggered grid practice [51]. 
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2. In incompressible flows, density is independent of pressure. Therefore, о'+! = 
o! = p (say). Derivation of the pressure-correction equation for compressible 
flow is left to the reader as an exercise (see Date [15, 17]). 

3. On staggered grids, the momentum equations are solved at the cell faces and, 
therefore, residuals Rn and R,2 must vanish at full convergence, rendering 
rig = 0. Although this state of affairs will prevail only at convergence, one 
may ignore zig even during iterative solution. Thus, effectively, the pressure- 
correction equation applicable to computations on staggered grids is 





1 à [e a) ү! д [| 





r oxi АР" дх\ r 0x3 A pun 0x2 
a(o) 1 8 1 8 
gs er beige inre]. 639 


This equation 15 derived in [51] via an alternative route. It is solved with the 
boundary condition 


ӘР 


= 0. 5.33 
A (5.33) 


The explanation for this boundary condition is given in a later section. 

4. On collocated grids, cell-face velocities must be evaluated by interpolation 
to complete evaluation of mp because only nodal velocities u; are computed 
through momentum equations. Thus, mp in Equation 5.30 is evaluated as 


+ (o! r uj], — o"! r Tl) Axi + (opt! — р) A Tt 


Now, to evaluate u;, we use multidimensional averaging rather than simple one- 
dimensional averaging. Thus, for example, 





1 | 1 AX» nu! + Ах? и! 
1 1 1 ， 156 86 
и = 一 = Ub + + 
16 2 Е ( 1,P uie) A xau AX2.s 
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= | | І І 
Wise = 7 (ul p + 91 5 usus), 


] — 
Ui ne = 


(us p tue tein + iwe) (5.35) 
Similar expressions can be derived for other interpolated cell-face velocities. 

5. On collocated grids, we do not explicitly satisfy momentum equations at the 
cell-face locations. Therefore, there is no guarantee that mr will vanish even at 
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convergence. We, therefore, write Ruri,e in Equation 5.31, for example, as 





u 1 1 = 1 
AP" us У; Акин р D 


/ др! 
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(5.36) 








е 
е 

This equation is the same as Equation 5.26 written for location e, but the net 
momentum transfer terms are again multidimensionally averaged. This averag- 
ing 15 done because, when computing on collocated grids, one does not have the 


cell-face coefficients 4;.° Now, again using Equation 5.26, we get 




















AP"n ul, — Y^ Ари, — DI - Әр! 
n - 25 غك‎ т. 7% )5.37( 

AV ` Ox, 

е 
Thus, effectively, 
z | ар! 
Ras. = Rune A a (5.38) 
Oxy OX1 fe 

6. Now, Ru. is again evaluated in the manner of Equation 5.35. Thus, R,,,,, Will 


contain residuals only at nodal locations P, E, N, S, NE, and SE. These residuals 
will of course vanish at full convergence because momentum equations are 
being solved at the nodal positions. Therefore, R,,,, = 0 and 


(5.39) 








The practice followed here is same as that followed on staggered grids (see 
item 3). 

7. Now,to evaluate the multidimensionally averaged pressure-gradient in Equation 
5.39, we write 
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Qio Ars РЬ + рув — Pb — PN 
4 Axon + AX2,s AX е 

110 Axa Pt РЕ = Pb — PS 
4 AX2.n + Ax2 s AXi е | 





(5.40) 


$ Note that, in principle, evaluation of these coefficients can be carried out. However, the com- 
putational effort involved will be prohibitively expensive in multidimensions. For example, in a 
three-dimensional calculation, one will need to evaluate eighteen extra coefficients at the cell faces 
in addition to the six coefficients evaluated at the nodal locations. 
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To simplify the evaluation, we introduce the following definitions: 


Ах ур + AXie Pw 

















Da p= BEN 541 
Рур Axiw ET Ах е ( ) 
— Apu + Ахар (5.42) 
Рур Грета ， 
1 

Pe = 3 (Pur Рр) (543) 
— _ AXLe PEE + AXtee DP (5.44) 
Е Ахт е + Ах ее \ | 
—  _ AX2s DNE + موتك‎ PSE (5.45) 
Pu AX2.s + AX2.n \ | 

"e Е = 

Pg = 3 PaE + Pug) (5.46) 


Substituting these definitions in Equation 5.40 and replacing ppg and pw in 
favour of pg and pp, we can show that 



































dp סו‎ -₪ |, 2:-2%[ |v! +P!) ба 
дх\ 2 Ах е Ах е 2 Ox] = \ 
6 
and, therefore, from Equation 5.39 
1 (р 一 др! 
Rg Р) 8 (5.48) 
2 - oa. 6 Ox] е 
where 
m 5.49 
Psm = (Р —Р). (5.49) 
The suffix sm here stands for smoothing pressure correction. 
8. Repeating items 4, 5, 6, and 7 at other cell faces, we obtain 
др’ др’ др’ 
Ufl,w = Ti ? Uf2.n = са Uf2.s = са (5.50) 
| Ox] 5 | 0X2 n | 0x2 s 
Thus, substituting these equations in Equation 5.31, it follows that 
др’ др’ 
йв = АЕ Em лу | — AW DE Дх 
X1 e X1 w 
др др. 
+ АМ Ax?| — AS — Ax» (5.51) 
дх X2 Е 0X2 8 








9. In evaluating coefficients AE, AW, AN, and AS, we need AP coefficients 
at the cell faces (see Equation 5.29). However, these can be evaluated by 
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one-dimensional averaging as 


(APP + АРИ),‏ ~ = الاير 


— N| = 


АРИ = 3 (AP? + APA), (5.52) 
where AP" = АР“ = AP"? on collocated grids. 
These derivations show that Equations 5.30 and 5.31 can be replaced by Equa- 


tions 5.34 and 5.51, respectively. Thus, the mass-conserving pressure-correction 
equation (5.25) can be effectively written as 





1 8 [er [ 1 8 [unn zs | 





r Axl AP" Ox] r 0x2 A Pun 0X2 
= д(0) 1 a ltl- 1 9 l+1—1 
Ot к i и |+. дх2 D - | 
"ro AV Opi „1 д [о'+!г© AV др’. 
r - A 1 Ox] r 0x2 AP"? 0X2 | 


(5.53) 


This equation represents the appropriate form of the mass-conserving pressure- 
correction equation on collocated grids. 


5.2.4 Further Simplification 


It is possible to further simplify Equation 5.53. To understand this simplification, 
consider, for example, the grid disposition near the west boundary as shown in 
Figure 5.4. When computing at the near-boundary node P (2, j), the pressure 
gradient др/дх |р must be evaluated in the momentum equation for velocity u p. 
This will require knowledge of the boundary pressure py = p (1, j). On collocated 
grids, this pressure is not known and, therefore, is evaluated by linear extrapolation 
from interior flow points. Thus, 


m שו‎ е 5.54 
Po Lone Lon PE (5.54) 


where L denotes length. The same procedure is adopted at Nb and Sb. Now, assuming 
that the pressure variation near a boundary is /осайу linear in both x4 and x; 
directions, it follows that 


Do — py = рр — рр or Pub = Pim P» (5.55) 
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1 א 
Nb‏ 


Figure 5.4. West boundary, i — 1. 





and, therefore, 


_ psm 


b дп 


Opsm 
Ox 1 





=0. (5.56) 
b 








The same condition is also applicable to رام‎ (see Equation 5.33). Now, Equa- 
tion 5.53 shows that multipliers of gradients of ру, and p; are identical and, since 
the boundary conditions for these two variables are also identical, we may write the 
mass-conserving pressure correction equation in the following form: 


1 0 ‚др! 1 8 , op’ 

oe {rt 0 E ү Г 

r Oxy Ox} r 0x2 0x2 
Е 8(pl*!) 1 8 


ZEE Cm o {roa }+—-— rox. (5.57) 








where ГР = o*! rg AV/AP"! and T? = p+! ra AV/AP"?., Equation 5.57 
must be solved with the following boundary condition: 





0 天 
P| o, (5.58) 
дп |y 


where the total pressure correction p’ is given by 
Р = Pm + Pom (5.59) 
and the discretised form of Equation 5.57 is 
AP pp = AE py + AW py + AN py + AS ps — mip, (5.60) 


where mp is given by Equation 5.34 and the coefficients by Equation 5.29. In 
passing we note that Equation 5.57 for collocated grids has great resemblance 
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to Equation 5.32, which is applicable to staggered grids, although the dependent 
variables have different meanings. 


5.2.5 Overall Calculation Procedure 


The sequence of calculations on collocated grids is as follows. 


1. 


Ata given time step, guess the pressure field р! у; This may be the pressure field 
from the previous time step. 

Solve (see the next section) the momentum equations (5.12) once each for 
Ф = иу and из with problem-dependent boundary conditions. Designate the 
velocity fields so generated by и" and u^. 


. Form Tij (Equation 5.34) using multidimensional” interpolations of cell-face 


velocity. Now, solve Equation 5.60 with boundary condition (5.58) iteratively 
to yield the total pressure-correction p; ; field. The number of iterations may 
not exceed 5 to 10. 

Recover the mass-conserving pressure correction via Equation 5.59. Thus, 


/ / / / 1 1 二 
Pm,i = Pij T Psmi,j = Pij T 2 (Pij E Ei) , (5.61) 


where p A ; 18 evaluated from Equation 5.43. 


. Correct the pressure and velocity fields according to 





p == ji + Ê Pij 0 «fel, (5.62) 
m / ra Ax» , 
ит) = Шу урш | (Ртн+1/2,у 一 Ртл—1/2,/)› (5.63) 
i,j 
m I ra Axı 1 
иу = jj 一 "AP? |. UL j+1/2 7 Pmi j-1/2)} (5.64) 
ij 





Note that AP”! = AP". 

Solve the discretised equations (5.12) for all other scalar Ф, ; relevant to the 
problem at hand. 

Check convergence through evaluation of residuals (see the next section) for 
momentum and scalar equations. Care is, however, required in calculation of 
mass residuals as will be discussed shortly. 

If the convergence criterion is not satisfied, treat p'*! = p!, Ф/+! = Ф! and 
return to step 2 

To execute the next time step, set all b? = Ф/+! and return to step 1. 


7 Although multidimensional interpolation is prescribed, in actual computations, one-dimensional 


interpolations suffice in most applications. 
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5.3 Method of Solution 


5.3.1 Iterative Solvers 


Equations 5.12 for any ® and Equation 5.60 for p' have the same form, which for 
any node (i, j) can be generalised as 


(AP; j + Spi,j) qe = AE;,; © + АЙ, p 


+ AN, j O71 AS Or Suy, ^ (5.65) 
where Su = D, AP = AE + AW + AN + AS, and Sp = (p? AV / At). Note 
that Su and Sp can be further augmented to effect underrelaxation, boundary 
conditions, and to some extent domain complexity. If there are /N nodes in 
the i direction and JN nodes in the j direction, Equation 5.65 represents a set 
of (IN —2) x (JN — 2) equations for the interior nodes for each d. These 
equations can be solved by matrix-inversion-type direct methods. However, in 
multidimensional convection, iferative methods are usually preferred in which 
Equation 5.65 is solved sequentially for each ©. There are two extensively used 
methods of this type: GS and alternating direction integration (ADI). 


Gauss-Seidel (GS) Method 

In the GS method, for each ®, coefficients AE, AW, AN, AS, Su, and Sp 
are evaluated based on © values at iteration level / for each node (i, /), i = 2 
to IN — land j = 2,/N — 1. Then the nodal value is updated in a double DO loop: 


DO 1 J = 2, JN-1 

DO 1 1 = 2, 1 

ANUM = AE (I, J)*FICI+1, J) + AWCI, J)*FI(CI - 1, J) 
+ ANCI, J)*FICI, J + 1) + ASCI, J)*FICI, J = 1) 
* SUCI, J) 

ADEN = AP(I, J) + SP(I, J) 

FI(I, J) = ANUM / ADEN 

1 CONTINUE 


This method is sometimes called a point-by-point method because each node 
(i, j) is visited in turn. Note that as one progresses from i = 2 and j = 2, some 
of the neighbouring Ф values are already updated whereas others still retain their 
values at iteration level /. Thus, the net evaluation is really a mixed evaluation. Yet, 
at the end of the DO loop, values at all nodes are treated as having (/ 4- 1)-level 
values. Convergence is declared when the residuals (see the next subsection) fall 
below a certain low value. This iterative method, though very robust and simple to 
implement, is very slow to converge. 


5.3 METHOD OF SOLUTION 


ADI Method 

The ADI method is a line-by-line method in which Equation 5.65 1s first solved for 
all 7 = constant lines (say). This is called the j-direction sweep. The solution thus 
obtained may be called the Ф/+1/2 solution. Now, using this solution, Equation 5.65 
is again solved for i = constant lines to generate the Ф/+! solution. This is called 
the i-direction sweep. The implementation details are as follows. For the 7 sweep, 
Equation 5.65 is written as 


(АР; ; + Spi.j) qi = АЕ; Qi + AW; ; ФТ? + SJi j, (5.66) 


i+l,j i=l 
where 

SJ; = AN, Ф! у, + 45, D j + Sui,j. (5.67) 

Now, dividing by coefficient of Ф; ;, Equation 5.66 for fixed j can also be written as 

PH ж=аФ epe ra, i=2,...,IN—1, (5.68) 


where di = AE; ; /(AP, j + SD; j), bj — АЙ) /(АР,; j + Spi,j). and Cj — SJ sf 
(АР, ; + р: j). 

It is clear that Equation 5.68 can be solved using TDMA for each j — 2 to 
JN — 1 to complete the 7 sweep. To execute the i sweep, Equation 5.65 is again 
written as 


(АР; + Spij) Pit = АМ, OF, + AS, OF +51), (5.69) 


where 


SL, j = AE; j 91.1 + АЙ, Ф + Suig. (5.70) 


Equation 5.69 can again be cast in the form of Equation 5.68 and subsequently 
solved for each і = constant line by TDMA. The two sweeps complete one iteration. 
Thus, in the ADI method, the domain is swept twice per iteration. In spite of this, 
the procedure proves to be much faster than the GS procedure. In Chapter 9, some 
additional methods for convergence enhancement are described. 


5.3.2 Evaluation of Residuals 


The convergence of the iterative procedure 1s checked by evaluating the imbalance 
in Equation 5.12. Thus, for each Ф, we evaluate 
270.5 


= | у, Паре -У7 ар (5.71) 
k 


all nodes 


When the maximum value of Ra among all Ф$ is less than the convergence criterion 
(typically 1075), the iteration is stopped. Often, Ro is normalized with a reference 
quantity specific to a problem having units of AP Ф. 
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Special care is, however, needed for the mass residual. On staggered grids, the 
mass residual Rm is checked via Equation 5.30 [51]. That is, 


0.5 
=| 25 "| (5.72) 
all nodes 


However, מס‎ collocated grids, one cannotuse this equation directly because уй, عدار‎ 0 
even at convergence. Therefore, Equation 5.72 is written as 
0.5 


2 
Ra-| >. ₪ рУ, ^x) , (5.73) 
k 


all nodes 


where АР and A, are coefficients of the pressure-correction equation. It will 
be recognized that this equation simply represents the discretised version of the 
left-hand side of Equation 5.32 (or see Equation 5.28 with ma = 0). Thus, Rm is 
evaluated after р. ; ; is recovered in step 4 of the calculation procedure. This is 
an important departure from the staggered-grid practice that a casual reader may 
overlook. 


5.3.3 Underrelaxation 


Global Relaxation 
As mentioned in Chapter 2, in steady-state problems (At — oo), underrelaxation 
15 effected by augmenting Su and Sp as 





Su; j = Sui j + B®; ;, Spi j = Spi; +B, B= (АР; ; + Spi,j), 


(5.74) 


(1—9) 
0 


where o is Ше underrelaxation factor and / is the iteration level. The value of o 15 
the same for all nodes but it may be different for different Фѕ. This is called global, 
or constant, underrelaxation. 


False Transient 

In multidimensional problems, underrelaxation is often effected in another way. 
Thus, consider a steady-state problem in which At = oo and, therefore, the transient 
term is zero. However, one can imagine that the steady state is achieved following 
a transient and each time step is likened to a change in iteration level by one. In 
this case, 7, may be viewed as Ф! j and the time step Лі as the false-transient 
step. Then, combining Equation 5.65 with Equation 5.74, we can deduce that the 
resulting equation may be viewed as one in which 


AP, j + Sp. 
AP, j + Spi,; + (p? AV/At)i,j \ 





)5.75( 


Оев, у = 


5.3 METHOD OF SOLUTION 


where the suffix eff is added for two reasons. Firstly, note that this equation arises 
out of comparison with Equation 5.74; secondly, 06% is not a global constant but 
will vary for each node (i, /). In fact, this variation also proves to be most appropri- 
ate. This can be understood as follows. When АР; ; + Sp;,; is small, the change in 
Ф from iteration level / to / + 1 will be large (see Equation 5.65). It is precisely this 
large change that 15 to be controlled by underrelaxation. Equation 5.75 shows that 
Фе 15 indeed small when A P; ; + Spi, j is small. Conversely, when АР; ; + Spi ; 
is large, the implied change in Ф is small; therefore, we can afford a larger value 
of æ. Thus, underrelaxation through the false-transient method is proportionate to 
the requirement. Of course, the smaller the value of the false At, the smaller is the 
value of the estimated «еҥ. 

Although in most nonlinear problems use of constant o suffices, the false- 
transient method needs to be invoked when couplings between equations for dif- 
ferent ds are strong or when the source terms for a given Ф vary greatly over a 
domain or when the initial guess of different variables is very poor. Most practi- 
tioners invoke the false-transient method when the global underrelaxation method 
fails. 


5.3.4 Boundary Conditions for ® 


In fluid flow and convective transport, five types of boundaries are encountered: 
inflow, outflow or exit, symmetry, wall, and periodic. At all these boundaries, mainly 
three types of conditions are encountered: 


1. Фь specified, 
2. d®/dn|, specified, and 
3. д2Ф/дп?|ь specified, 


where n is normal to the boundary. We shall discuss each boundary type separately. 


Inflow Boundary 
At the inflow boundary, values of all variables are specified and are therefore 
known.® Thus, at a west boundary (see Figure 5.4), for example, we can write 


Suz j = Suz j + АЙ; , j, Sp2,; = 8р2; + 417 3, AW, ; = 0. 
(5.76) 


8 Care is needed in specifying inflow conditions for turbulence variables e and e. Typically, ein = 
(Tu uin}, where Ти is the prescribed turbulence intensity. Now, the dissipation is specified through 
the definition of turbulent viscosity. Thus, ein = Cu p e? /(u VISR), where the ratio VISR = p/u 
is assumed (typically, of the order of 20 to 40). In practical applications, Ти and VISR are rarely 
known and, therefore, the analyst must assume their magnitudes. 
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Figure 5.5. Exit and periodic boundaries. 


Wall Boundary 
At the wall, either Фь or its flux дь is specified. For the first type, Equation 5.76 
applies. If flux is specified, then at the west boundary again, 


Sug; = Su); - 7 Pij = — t j, AW, у = 0, 


where Ауу = r; Ax»; is the boundary area. 


Symmetry Boundary 

At this boundary, there is no flow normal to the boundary and no diffusion either. 
Thus, with reference to Figure 5.4, for a scalar ®, q1,; = 0.0. For vectors, the normal 
velocity component и (1, 7) = 0 апаи» (1, j) = u2 (2, j). ш all cases, AW» ; = 0. 


Outflow Boundary 

The outflow boundary is one where the fluid leaves the domain of interest. The 
boundary condition at the outflow or exit plane is most uncertain. To understand 
the main issues involved, consider Figure 5.5(a) in which de represents the outflow 
boundary. Now to affect the boundary condition, we may assume that the Peclet 
number (и Ах / Г)|ь is very large. In this case, the АЕ coefficient of all near- 
boundary nodes will be zero and, therefore, no explicit boundary condition Фь or 
0c /дп|ь is necessary. In many circumstances, this assumption may not be strictly 
valid. One way to overcome this difficulty is to shift boundary de further down- 
stream than required in the original domain specification. Thus, one carries out 
computations over an extended domain and effect АЕ = 0 at the new location of 
de. A third alternative is to assume that a fully developed state prevails at de so that 
both the first as well as the second normal derivatives are zero. Most researchers 
prefer to set the second-order derivative to zero and extract Фь by extrapolation 
while the transport equation is solved with AE — 0. 


? [n turbulent flows, the wall boundary requires special attention when the HRE form of the عه‎ 
model is employed. This matter will be taken up in the next section. 


5.3 METHOD OF SOLUTION 


Since none of these alternatives can be relied upon, it is advisable to ensure 
that the overall mass balance for the domain is maintained throughout the iterative 
process. This means that the exit-mass flow rate must equal the known inflow 
rate. Thus, after effecting the boundary condition (marked by superscript *, say) 
according to any of the alternatives just described, it is important to correct the 
boundary velocities as 


up—uhF, иь=и Е, F= /> m*a (56.78) 


* 
exit 


where m. is evaluated from the starred velocity boundary condition. 

Periodic Boundary 

Figure 5.5(b) shows flow between parallel plates with attached fins. In this case, 
after an initial development length, the flow between two fins will repeat exactly. 
Such a flow 15 called periodically fully developed flow and the periodic boundary 


condition will imply 
Фуу = Pry N+- = 0.5(Ф» у; + Фуу—1ум+1—/)» 
U2(1,j) = —U2(IN,j) = 0.5 (u»Q, j) — U»(IN-1,/N41—-j) (5.79) 


where IN and JN are the total number of nodes in the i and j directions, respec- 
tively. Note that in this boundary condition specification, the uz velocity has anti- 
periodicity whereas all other ®s have even periodicity. 


5.3.5 Boundary Condition for pm 


The boundary condition for رام‎ is given by Equation 5.33. The reason for this can 
be understood from step 3 of the calculation procedure. When this step is executed, 
the и! fields along with their boundary values il are already known. Now, when 
the p’ equation is solved, it is assumed that these boundary values are correct and, 
therefore, require no further corrections. 

If we now consider Equation 5.12 for Ф = и! and Ф = ul and subtract ће 
latter equation from the former, with и" = и! — u^, we have 
др 
Ox 1 |p 





AP up => Ашу AV 
where ks represent neighbours of P. Also, У; Au р = 0 through our assumption 
introduced in Section 5.2.3. This explains the form of velocity correction introduced 
in Equation 5.63 for an interior node. The same arguments apply to the uz velocity 
corrections given in Equation 5.64. 

Now, if the preceding equation is written for the boundary nodes (P = b), 
clearly uj „ = 0 because no corrections аге to be applied to the boundary velocities. 
Therefore, 9p’ /0x1|p = 0. This is boundary condition (5.33). In discretised form, 
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Figure 5.6. Node tagging. 


the boundary condition is implemented by setting the boundary coefficient of the 
pressure-correction equation to zero for the near-boundary node. 

Sometimes, we may have a boundary on which pressure is specified and, there- 
fore, remains fixed. For such boundaries, рь = 0. 


5.3.6 Node Tagging 


In Chapter 2, we emphasised that the introduction of Su and Sp can facilitate writing 
of generalised computer codes by capturing a large variety. In multidimensional 
codes, further variety can be captured by tagging each node of the domain with a 
number. This is intended to facilitate handling of 


1. different types of boundary conditions over different portions of the same pAys- 
ical boundary and 
2. domains that are not perfect rectangles. 


Figure 5.6 shows an arbitrary domain a-b-c-d-e-f-g-h-i-j, which we shall call the 
domain of interest. However, we regard it as a part of a rectangular domain а-т-п-1 
with nodes i — 1 to / N and j — 1 to J N. This will create areas b-c-d-m, f-g-n-e, 
and j-l-h-i, which are not of interest. We term them as inert or blocked areas. Now, 
coordinates xı; and x2; are chosen so that the implied cell-face locations exactly 
coincide with the boundaries ofthe domain of interest. This ensures that our domain 
of interest is filled with full (not partial) control volumes as shown in the figure. 


5.3 METHOD OF SOLUTION 


Node tagging is now accomplished using the following convention: 


1. NTAG (1, J) = 0 identifies all nodes interior to the domain. That is, nodes falling 
on the boundaries a-m, m-n, n-l, and 1-а are excluded. 

2. NTAG (1, J) = 1 identifies all interior nodes in the inert areas. 

3. NTAGW (I, J) = 11, 12, 13, 14, 15 identifies nodes adjacent to the WEST 
boundary with 11 for inflow boundary, 12 for symmetry boundary, 13 for exit 
boundary, 14 for wall boundary, and 15 for periodic boundary. NTAGW 15 zero 
for all other nodes. 

4. Similarly, NTAGE (1, J) = 21, 22, 23, 24, 25 identifies nodes adjacent to the 
EAST boundary, NTAGS (І, J) = 31, 32, 33, 34, 35 identifies nodes adjacent to 
the SOUTH boundary, and NTAGN (I, J) = 41, 42, 43, 44, 45 identifies nodes 
adjacent to the NORTH boundary. 


Using this convention (which is quite arbitrary), NTAGW will have a fi- 
nite number for i = 2 and j = 2,3,...,7 (boundary a-b) and for i = 6 and 
7 = 8,9,..., JN — 1 (boundary с-а). Similarly, NTAGN will be finite for j = 7 
andi = 2, 3, 4, 5 (boundary b-c), for j = JN — 1 andi = 6, 7, 8, 9, and again for 
j 7ح‎ and i = 10,11,..., N— 1 (boundary f-g). NTAGS and NTAGE can be 
similarly specified. 

The choice of numbers 11, 12, 13, etc. in NTAGW is arbitrary but brings one 
advantage. That 1s, for near-west boundary nodes, NTAGW/10 — 1 in FORTRAN 
and, therefore, a WEST boundary is readily identified. Similarly, NTAGN/40 — 1 
readily identifies a NORTH boundary. Once this identification is done, the actual 
numbers (11, 12, etc.) identify the type of boundary condition and therefore Su; ; 
and Sp; ; for the near-boundary nodes can be set up. This facilitates specification of 
different boundary conditions at the same physical boundary. Thus, if boundary a-b 
15 a wall, a part of it may be insulated and the rest may receive heat flux. Similarly, 
with respect to mass transfer, a part may be inert but the rest may experience a finite 
mass transfer flux. 

Finally, at the inert or blocked node where NTAG (I, J) = 1, one simply specifies 


Sui; = 10?? 中 desired， Spi.j = 1030 (5.80) 


Examination of Equation 5.65 will show that since A P; ; can never be very large, 
these settings render ®;,; = Paesired at the inert nodes. In Figure 5.6, the inert 
regions are outside the domain of interest. However, it is easy to appreciate that 
one can even have inert regions that are enclosed by the overall domain of interest 
(hence the term blocked region), as shown in Figure 5.7. The figure also shows 
how a domain with irregular boundaries may be specified by node tagging. Here, 
the irregular boundary is approximated by a staircase-like zigzag boundary. Such 


10 The accuracy of the solution will of course depend on the number of steps into which the true 
boundary is subdivided. 
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Figure 5.7. Domain with irregular boundary. 


an approximation of the true boundary is permissible when the flow is in the x3 
direction )1.6., из is finite but ןא‎ = из = 0 as in the case of laminar fully developed 
flow in a duct) because the replacement does not imply a rough wall.!! If, however, 
the velocity components и and из were finite, it would be advisable to map the 
domain by curvilinear or unstructured grids (see Chapter 6) so that the staircase 
boundary approximation does not interfere with the expected fluid dynamics (see 
Exercises 16 and 17). 

Finally, note that the exit and wall boundaries may be specified in more than one 
way, as discussed in the previous subsection. Thus, at a wall one may specify 
temperature or heat flux. One can introduce further identifying tags for each 


type. 


5.4 Treatment of Turbulent Flows 


5.4.1 LRE Model 


In multidimensional elliptic flows, the concept of mixing length is not very useful. 
This is because it is difficult to invent a three-dimensional (3D) algebraic prescrip- 
tion for the mixing length. As was learnt in the previous chapter, however, the LRE 
عه‎ model is general and does not require any input that depends on the distance 


1 The replacement will also be permissible in a pure conduction problem. 


5.4 TREATMENT OF TURBULENT FLOWS 


from the wall. The 2D elliptic version ofthis model can be described via Equation 5.1 
for Ф = e and є* with the following definitions of the source terms [9]: 


8,2 G — ре", (5.81) 


РЕ - [68 = )5.82( 
ди, V? dus" E м) 
С = 2| — 2 | — 一 一 十 一 一 , 5.83 
“| (=) ш (=) E дх\ дх2 em 
à eV à eV 
6 ע6-2=‎ (27) +£) А (5.84) 
02 0X2 
92u, < д?и\ : Puy? 
Eug E 2 +) 
< (5%) 1 pes (52) 
9?u; " д?и» 2 д?и» a 
DLE 2 4 |] لله‎ : 5.85 
"m 1 0 e 009 


The expressions for C, and С» are the same as those given in Chapter 4. The 
LRE е—є* model permits use of the e = є* = 0 condition at a wall boundary. 
Although this is a distinct advantage of the model, accurate predictions require a 
very large number of nodes, as was learnt through boundary layer predictions. In 
two dimensions, if more than one boundary is a wall then the number of nodes 
required becomes very large indeed. This is because, to resolve the inner layer 
near a wall, which typically spans to y+ = yu, ע/‎ = 100, one may need 60—80 
nodes with the first node as close as y* — 1 whereas the outer layer may require 
no more than 20—30 nodes. Physically, the inner layer occupies a very thin region 
near a 1211.12 Thus, computations with the LRE model in 2D and 3D elliptic flows 
can be quite expensive. In the interest of economy of computations, therefore, it 5 
desirable if an adaptation can be made that restricts calculations only to the outer 
layers. 


where 








5.4.2 HRE Model 


In a large majority of flow situations, as is well known, the inner layer exhibits near 
universality with respect to velocity and temperature profiles — the so-called laws 


12 Tn a fully developed flow in a pipe (radius R), for example, Rt = Ru, /v = (Re/2) V f/2. Using 
f = 0.046 е2, we estimate that at Re = 50,000 (say), Rt = 1,285. This shows that the inner 
layer is less than 1096 of the radius. 
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of the wall. In the two-layer approach, these laws are given by? 


yt, yt < 11.6, 

ut = T (5.86) 
- ם‎ [Еу], y+ > 11.6, 
K 


where א‎ = 0.41, E = 9.072, and wall-friction velocity ит = /Tw/p. Similarly, the 
temperature law is given by 


АЕ —(T — 1w)pCpur 





TT = Pr,(ut + PF), (5.87) 
dw 
where Pr, = 0.9 and 
P 
(= == ) ut, yr < 11.6, 
Pri 


Pr 0.75 
= 4 = .88 
РЕ 9.24 | G ) ( | )5.88( 


Pr 
x [ + 0.28 exp (-0.007 = : y* » 11.6. 
Pri 
These specifications are empirical but, in the range 30 > y* < 100, they are 
reasonably accurate. One can thus exploit this near universality to eliminate the 
inner layer almost completely from the calculations and compute only in the outer 
layers. In the outer layers, turbulence is vigorous and Re; = M/W is large (hence 
the acronym HRE for high Reynolds number model) so that є* — є and, therefore, 
the source terms are given by 


0-6 ese е ра )5.89( 
6 


where C, = 1.44 and С» = 1.92. The task now is to modify our discretised equa- 
tions for the near-wall boundary node P such that the implications ofthe laws ofthe 
wall are embodied in the equations.'* To achieve this goal, we note the following 
two characteristics of the 30 > yt < 100 region in which the near-wall node P is 
assumed to have been placed. These are 


ur = Cl Ve, (5.90) 
С = рє. (5.91) 
Let node P be adjacent to south node b (see Figure 5.8). We shall consider each 


variable in turn. 


13 [n all derivations in this subsection, distance y and x; are used interchangeably. 
14 [n the literature, this is called the wall function treatment [39]. 
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Figure 5.8. Wall function treatment. 

















® - دلا‎ 
For an impermeable wall, C, = 0 and, therefore, AS = Hef Ах /ур. Also, the 

no-slip condition requires that иь = 0 at the stationary wall. Thus 
ди\ _ Шев 


Tw = Meff — 
ду у=0 Ур 





从 
(uip = нь) = — upp. (5.92) 
Ур 


Now, replacing ир from Equation 5.86, we can show that 














Кек E Tw = PKU, (5.93) 
yp ир In(Eyp)’ | 
where ур = ypu,/v. Therefore, using Equation 5.90, we get 
Es y* « 11.6, 
Мек УР 
= 1/4 5.94 
yp pr Cu Ves yt < 6 = 
ها‎ (E yp CH” fep] v) 
Thus, for variable Ф = и, for the near-wall node P, we may set 
,اندي ديق‎ Spespl ag, Аы (5.95) 


Ур 


Ф = 8 

A further characteristic of the inner layer is that the shear stress through the layer 
is constant and hence equals ty. Also, experimental data demonstrate that in the 
30 < y* > 100 region, де/ду = 0. Therefore, AS = 0. The implications of the 
law of the wall thus can be absorbed through redefinition of Se for point P: 


Se = Ср == Pep, (5.96) 


where 


oul 2 11 2 ди 
Gp © Meff (=) = [Leff (=) = Tw 二 一 (5.97) 
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and, using Equation 5.91, 








1 Ур т. » 9 2 
ee uec] Su ce (5.98) 
ye Jo Pyp Jo ду yp 
or, using Equations 5.90 and 5.93, 
C3/4 3/2 
Zp = ЕЁ P (Еу). (5.99) 
K yp 
It is now easy to effect the boundary condition via 
БАЙ 
бше ky ая (5.100) 
Ур 
C3/4 „12 
ב‎ УА. (5.101) 
K yp 
Ф = є 
To evaluate єр, we combine Equations 5.91 and 5.97 so that 
w 9 0 
pub Сш الس‎ (5.102) 
م‎ ду ду 
But, from Equation 5.86, ди /ду = и; /(к y). Therefore, 
3 3/4 „3/2 
6 
а= ee 82 (5.103) 
к Ур к Ур 
To effect this condition, we set 
Su, = 1030 ey, Spe = 100. (5.104) 


Per 
In this case, AS = 1 Ax; /yp, where Tef = К/С. Again, we set AS = 0 and 
absorb the boundary condition via an augmented source. Thus 


PA 
Sur Sur t E (ү myedupd4t Ae. (5.105) 
Ур Cp 


Substituting for (Tp — Tp) from Equation 5.87, it follows that 





Г т 
of (5.106) 
Ур Рт. (и + PF) 
Thus, if qw is specified, we set 
Sus = d = ,ואת‎ — SprsSpri0, (5.107) 


P 
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and recover T, from Equation 5.105. Similarly, ifthe wall temperature 7 is specified 
then 


Г.ғ Ax Ге Ax 
Sur = Sur + —©——— m, Spr = Spr + للف‎ 
YP Ур 


(5.108) 


апа qw is recovered from Equation 5.105. For further refinements of the wall- 
function approach, see references [41, 69]. 


Ф = Wk 
It is not clear if universal mass transfer laws exist for all mass transfer rates. Fol- 
lowing theory developed by Spalding [73], however, it is possible to show that 


Pero Юи; In(1 + B) 





= ; 5.109 
ур Рг; (р + РЕ) В ( ) 
where the Spalding number В 15 given by 
R= uc deni (5.110) 
kb — OK,T 


and cy. т is the mass fraction deep inside the wall from where mass transfer is taking 
place. Note that as В — 0, In (1 + B) جح‎ B. Further, РЕ is still given by Equation 
5.88 but with Pr replaced by Schmidt number Sc. АП other adjustments are the 
same as those for the temperature variable. 


5.5 Notion of Smoothing Pressure Correction 


It is important to consider the notion of smoothing pressure correction introduced 
in our analysis of the collocated-grid calculation procedure. This is because, in 
the original SIMPLE-staggered grid procedure, such a smoothing correction is not 
required. However, its introduction is vital if zigzag pressure prediction is to be 
avoided on collocated grids, particularly when coarse grids are used. To understand 
the importance of smoothing correction, we consider computation of laminar flow 
in a square cavity (see Figure 5.9) of side L that is infinitely long in the хз direction. 
The top side (the lid) of this cavity is moving in the positive x, direction with 
velocity Uj (say). Because of the no-slip condition, the linear lid movement sets 
up fluid circulation in the clockwise direction. In this case, steady-state equations 
for Ф = u1, u2, and р’ need to be solved. 

Figure 5.10 shows the computed distribution of pressure for Re = (Ла L/v = 
100. In Figure 5.10(a), solutions obtained with a 15 x 15 grid are shown at the ver- 
tical midplane (x1/L = 0.5). The solutions are obtained using both staggered and 
collocated grids with identical grid dispositions. However, in the latter, smoothing 
pressure correction is not applied (see step 4 of the calculation procedure). It is clear 
that whereas the staggered-grid procedure produces a smooth pressure distribution, 
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U-LID 











Figure 5.9. Square cavity with a moving lid. 











the predicted pressure on the collocated grid is zigzag. Note that the zigzagness 
15 most pronounced in regions where the staggered-grid pressure distribution con- 
siderably departs from linearity. Figure 5.10(b) shows the results obtained with a 
4] x 41 grid. Notice that the pressures predicted on both grids are nearly identical 
and smooth. This suggests that pressure smoothing 15 in fact not required when fine 
grids are used. In Figure 5.10(c), the coarse-grid solutions are repeated but now 
the smoothing pressure correction is applied. It is seen that the predicted pressure 
distribution on collocated grids is now smooth though not in exact agreement with 
the staggered-grid pressure distribution because of the coarseness of the grid and 
also because p 15 evaluated by multidimensional averaging. 

Then, what 15 the role of the smoothing pressure correction? This can be under- 
stood from definition (5.49). The smoothing correction represents the difference 
between the point value of pressure p and the control-volume-averaged pressure 
p. The latter is defined by Equation 5.43 as the average of linearly interpolated 
pressures in the x, and x2 directions. Thus, p; can be finite only when spatial 
variation of pressure p multidimensionally departs from linearity. This is the case 
at the midplane of the square cavity. On coarse grids, we observe zigzagness if 
smoothing is not applied. However, when grids are refined, р — 0. That is, as a 
continuum is approached, no smoothing should be required. The role of smoothing 
pressure correction is thus simply to predict smooth pressure distribution on coarse 
grids. 

We now recall the quantity A; (p — p) introduced in the normal stress expression 
in Chapter 1. It was stated in that chapter that A, is trivially zero in a continuum but 
is finite in discretised space. We have recovered A, = 0.5 in our definition of p/n- 
But, as the grid size is refined, one approaches a continuum and, therefore, 和 1 can 
be set to zero to predict smooth pressure distributions as shown in Figure 5.10(b). 

As a corollary, we may now view pressure zigzagness as a spatial counterpart of 
the oscillating compressible sphere of isothermal gas explained by Schlichting [65]. 
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On collocated grids, when density 1s constant and steady state prevails (as in our 
calculation of the square cavity problem), mp = pV V and thus mp + 0, as was 
recognized in Section 5.3.2. Now, as our control volume is fixed, V V عد‎ 0 (which 
implies rate of volume change) creates dissipation in the system. It is this dissi- 
pation that generates p different from p. We had anticipated this result in Chapter 
1. The need for p = 0.5(p — p) discovered through our discretisation of equa- 
tions applicable to a continuum 15 therefore not surprising. In summary, therefore, 
introduction of p; simply accounts for the dissipation introduced in the system. 
Further discussion of smoothing pressure correction can be found in [16, 17]. 

Finally, we note that equation 5.41 suggests that р, р is a solution to the dis- 
cretised version of 


д?р 


—| = 0, (5.111) 
ax? 


P 





and, similarly, P,, p (Equation 5.42) is a solution to the discretised version of 


oF 


= 0. 5.112 
m (5.112) 


P 





These deductions were also anticipated in Chapter 1. 

Before considering applications of our SIMPLE-collocated procedure, it would 
be of interest to examine the effect of introduction of ру on the convergence rate 
of the solution procedure. To do this, we plot variation of momentum and mass 
residuals with iteration number / for the case of 41 x 41 grid solutions shown in 
Figure 5.10(b). Figure 5.11 shows these variations for staggered and collocated 
grids. The initial guess and the underrelaxation factors are identical in the two 
computations. The figure shows that the convergence histories are almost identi- 
cal on both types of grids. Further, computations were stopped when momentum 
residuals fell below 1075. At this stage of convergence, the mass residuals are seen 
to be smaller by an order of magnitude. Thus, we may conclude that our SIMPLE- 
collocated grid procedure is successful in mimicking the SIMPLE-staggered grid 
procedure in all respects. 

The convergence rate of an iterative procedure greatly depends on the ini- 
tial guess for the relevant variables. Among the different variables, the initial 
guess for pressure 15 perhaps the most difficult to provide. Further, in deriving 
the pressure-correction equation, quantities УА; и, and > 4; v; are set to zero. 
Thus, the pressure-correction equation 1s only an approximate one. In spite of this, 
computational experience shows that the predicted pressure-correction distribution 
provides very good velocity corrections, which are proportional to the pressure- 
correction gradient (see Equations 5.63 and 5.64), but a rather poor correction of 
pressure itself. 
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Figure 5.11. Convergence histories. 











To appreciate this experience, we consider a 1D flow through a porous medium? 
having porosity 6 (= volume of fluid/total volume). Then, the governing mass 
conservation and momentum equations are given by 


d * 
MA وح‎ (5.113) 
dx 
d dp 2 si 
чу Ot quc we Ви, (5.114) 
where p* = о/є?, u* = u/e, and u is the superficial fluid velocity through the 
porous medium. The medium resistance parameter R = 1/K, where K is the perme- 
ability of the medium. If we assume that fluid density is constant then d u/ d x = 0 
and the momentum equation will reduce to d p/ d x = —и*є Ru. Therefore, taking 


p = u = 1, € = 0.1, and R = 4 x 10? gives the exact solution 
u — 1, р =4х 105( (1/א-‎ 


where L 1s the domain length. 
We solve this 1D problem using the 2D computer program given in Appendix C!6 
in two ways. In Problem 1, the initial guess for pressure is taken from the exact 


15 The author is grateful to Prof. D. B. Spalding for recommending this problem for inclusion in this 
book. 
16 The relevant USER file for this fixed-pressure boundary condition problem is given in Appendix C. 
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I x/L 00 0.25 0.50 0.75 1.0 
0 0.000E--00 0.000E+00 ^ 0.000E--00 ^ 0.000E--00  0.000E--00 
1 0.266Е+01 0.266E+01  0.106E—02 ^ 0.284E—06 0.284Е—06 
2 0.737E+00 0.737E+00 — 0.705E--00  0.146E+01 — 1 
3 0.114E+01 0.114E+01 — 0.913E+00 0.919Е+00 — 0.919E--00 
4 0.982E--00 0.982E+00 — 0.974E--00 0.103Е+01 — 0.103E--01 
5 0.101E+01 0.101E+01 — 0.9920+00 0.992Е+00 — 0.992E--00 
6 U 0.999E--00 0.999E+00 | 0.998E--00 0.100Е-+-01 1 
7 0.100E--01 0.100E+01  0.999E.-00 ^ 0.999E.L00 0.999Е+00 
8 0.100E+01 0.100E+01 — 0.100E+01 0.100Е+01 1 
9 0.100E+01 0.100E+01 0.100Е+01 0.100Е+-01  0.100E--01 
10 0.100E+01 0.100E+01 0.100Е+01 0.100Е-+-01  0.100E--01 
11 0.100E+01 0.100E+01 0.100Е+01 0.100E+01  0.100E--01 
12 0.100E+01 0.100E+01 0.100E+01 0.100E+01  0.100E--01 
0 0.400E--06 0.000E+00  0.0008+-00 ^ 0.000E--00 0 
1 0.400E--06 0.295E+06 | 0.283E--06 ^ 0.155E--06 — 0.000E--00 
2 0.400E--06 0.266E+06 0.192E+06 0.837Е--05 — 0.000E--00 
3 0.400E--06 0.294E+06 0.211Е+06 0.993E--05 0.000Е-+00 
4 0.400E--06 0.294E+06 | 0.202E--06 ^ 0.958E--05 — 0.000E--00 
5 0.400E--06 0.298E+06 | 0.202E--06 — 0.982E--05 — 0.000E--00 
6 P 0.400E--06 0.299E+06 — 0.200E--06 ^ 0.987E--05 0.000Е-+00 
7 0.400E--06 0.299E+06 0.201E+06 0.993E--05 — 0.000E--00 
8 0.400E--06 0.300E--06 ^ 0.200E--06 ^ 0.996E--05  0.000E--00 
9 0.400E--06 0.300E+06 | 0.200E--06 0.998Е--05  0.000E--00 
10 0.400E--06 0.300E--06 ^ 0.200E--06 ^ 0.999E.L05  0.000E--00 
11 0.400E--06 0.300E+06 0.200E+06 ^ 0.999E.L05  0.000E--00 
12 0.400E--06 0.300E--06 ^ 0.200E--06 ^ 0.100E--06  0.000E--00 
12 p/p 0.000Е+00  0.114E-03  —0.150E—-03 0.341Е—03 — 0.000E4-00 
12 р/р 0.000Е+00 —0.963E—04 0.188Е—03  —0.288E—03 0.000E+00 








solution given here, but velocity и = 0 at all nodes. In Problem 2, p(1) = 4 x 10? 
and p(I N) = 0, but p = 0 at all interior nodes of the domain. Again u = 0 at 
all nodes. Thus, in both problems, the guessed velocity is zero and the boundary 
pressures are held fixed so that p’(1) = p' (IN) = 0. Relaxation parameters are 
taken as ₪ = В = 1. 

For Problem 1, by solving for и and p’, the exact solutions (not shown here) 
for p and u are obtained in just one iteration although the initial guess for u was 
zero. This is because the initial guess for pressure was itself the exact solution and, 
therefore, required no correction. 

Table 5.1 shows evolutions with iteration number | for Problem 2. Notice that 
because ofthe poor initial guess for pressure, the exact velocity solution is obtained 
in eight iterations whereas the correct pressure prediction requires twelve iterations. 
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I 
= STEEL 


CONCRETE 
Figure 5.12. Reinforced concrete slab. 


Thus, the correct velocity solution is indeed obtained earlier in the iteration process. 
The last two rows in the table show values of p;,/ p and р; „/ р at convergence. They 
are indeed small within round-off errors and become even smaller if the iterations 
are continued. 

The general lesson learnt from the example here is that, in a pure flow problem, 
overall convergence rate 1s controlled by the evolution of the pressure variable for 
which there 15 no exact equation. 


5.6 Applications 


In this section, a few problems are solved to illustrate the application of the proce- 
dure just described. The problems are solved using the generalised computer code 
given in Appendix C. The reader will find it useful to read the typical USER files 
given in this appendix to understand the details of implementation. 


Conduction Problem 
Figure 5.12 shows a concrete slab with I-section steel beams embedded for re- 
inforcement. The conductivities of steel and concrete are 100 and 1 W/m-K, 
respectively. The lower surface of the slab is at 80°С and the upper surface is ex- 
posed to the environment at 20°С with a heat transfer coefficient of 1.75 W/m?-K. 
It is required to determine the steady-state temperature distribution in the slab." 
In this problem, u; = 0; therefore, solution need be obtained for Ф = Т only. 
The governing differential equation is 


д oT 0 oT 
x ue kc. eg. (5.115) 
Oxy Ox] 0x2 0X» 


Equation 5.115 must be solved on the smallest domain, exploiting symmetries. 
Thus, the chosen domain is 0 > x; > 0.5 and 0 > x4 > 1.0, with x; — 0 and 
xı = 0.5 taken as symmetry boundaries. The boundary conditions at the top and 
bottom of the slab are shown in the figure. 





17 This problem is taken from the book by Patankar [53]. 


139 


140 


2D CONVECTION - CARTESIAN GRIDS 





1.0 Р 








80.00 

77.86 

75.71 

73.57 

71.43 

69.29 

67.14 

65.00 Figure 5.13. Isotherms – conduction in a re- 
62.86  inforced cement concrete slab. 
60.71 

58.57 

56.43 

54.29 

52.14 

50.00 








0.8 





0.6 - 


IB1 CONCRETE 


“вә 





0.4 上 




















~ моло ل-‎ 0606 0732 UO0Um т 














| لعا 0.0 





Figure 5.13 shows the computed temperature contours. Computations were car- 
ried out by employing harmonic-mean conductivities at the cell faces. This 1s im- 
portant because conductivities of concrete and steel are different (see interfaces 
181,182, 181,182, JB3, and JB4 marked on Figure 5.13). A 13(x1) x 22(x2) grid 
is employed. The figure shows that, in the middle of the slab, the temperature 15 
almost uniform in both steel and concrete. The maximum temperature, 80°С, is 
prescribed at the lower boundary and the predicted temperature at the top convec- 
tive boundary is almost uniform at 54°С. The heat loss through the top boundary 
is thus calculated at 60 W/m? and this also equals the heat gain through the bottom 
boundary since steady-state conditions prevail. Note that if the I-section beams 
were not present, one would have 1D heat conduction through concrete alone and 
the heat loss would then be 38.2 W/m?. The presence of high-conductivity I-section 
beams has enhanced the rate of heat transfer. 


Periodic Laminar Flow and Heat Transfer 

Compact heat exchangers often employ an offset-fin configuration to enhance con- 
vective heat transfer at the expense ofan increased pressure drop. However, when ge- 
ometric parameters are suitably chosen, the overall thermo-hydraulic performance 
(1.e., increased heat transfer for the same pumping power or reduced pumping power 
for the same heat duty) 15 improved, resulting in a compact heat exchanger design. 
Figure 5.14 shows an array of interrupted plates or blocks, which may be regarded 
as a 2D idealisation of the offset-fin heat exchanger; the flow width in the хз direc- 
tion is large. The length and the width of each block are L and 1, respectively, and 
the transverse pitch is H. 
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Figure 5.14. Flow in an interrupted passage. 


Clearly, under periodically fully developed flow and heat transfer past the blocks, 
suitably defined variables will exhibit distance periodicity 2L. Thus, for computa- 
tional purposes, the smallest representative domain (or module) will be A-B-C-D- 
E-F, as marked in Figure 5.14. Planes A-B-C and D-E-F will experience symmetry 
boundary condition whereas boundaries A-F and C-D will be periodic. Equations 
for ® = ui, u2, T and for р’ must be solved over this domain. 

For the flow variables, the distance periodicity can be accounted for by setting 


P (x1, x2) = — x1 + po (х1, х2), (5.116) 


where £ is the overall pressure gradient (a constant because the flow is fully devel- 
oped) and p, is Ше superposed pressure that 15 periodic [54]. The same situation 
also holds for the velocities. Thus, the boundary conditions at planes A-F and 
C-D are 


Do (0, x2) = po (2L, x2), ui (0, x2) = u; (2L, x2). (5.117) 


Note that parts of A-F and C-D are solid walls. The symmetry and wall bound- 
ary conditions require no elaboration. With the introduction of variable p,, it will 
be appreciated that the и and и; momentum equations are solved with source 
terms В — dp,/dx, and —dp,/0X2, respectively, and the р” equation will provide 
corrections to pressure p,. In fact, the equations are solved with an assumed value 
of B and the average streamwise velocity is evaluated from the resulting predicted 
velocity field at convergence. The total mass flow through the module can be es- 
timated at any transverse plane but we may evaluate it at plane A-F (say) so that 
m = ht i pu, dx» and define ua based on the frontal area, as is the practice in 
heat-exchanger design. Thus, 


изу = m/(pHJ2). (5.118) 
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The friction factor and Reynolds number are defined as 


28H 2H 
Perte. же (5.119) 
2 p us, H 


It is difficult to specify exact thermal boundary conditions at the blocks in a 
real heat exchanger. Nonetheless, we may assume that each block or plate delivers 
heat flux qw (say) along its perimeter so that the total heat transfer will be Q = 
qw(2 L + 4t/2)andthe total bulk temperature rise across the module will be А7 = 
Q/(m Cp). Thus, the periodic temperature boundary condition will be 


T (0, x3) = 7, (0, x2) = 0.5 AT, 
T (21, х) = T, QL, x2) + 0.5 AT», 
T, (0, x2) = T, QL, x2). (5.120) 


In Equations 5.117 and 5.120, all variables must be evaluated at x = 0)1 = 1) 
and x; = 2L(1 = IN). This evaluation is done as follows: 


Ф(1, 7) = (IN, J) = 0.5[6 2, 7) + BUN — 1, 1 (5.121) 
where Ф = po, ui, T and it is assumed that the chosen grid disposition is such 
that xı (ТМ) — xı (IN — 1) = x; (2) - xı (1). Solution of the temperature equation 


enables evaluation of the mean bulk temperature T, = 0.5 (Ty Ar + To, cp), where 
the bulk temperatures at the periodic planes are evaluated from 


|] pCpu1T dx 





Th ססוג‎ = 50 )5.122( 
d o pC, ui dx» 
Finally, the Stanton number St is evaluated as 
hay 
St = ————, (5.123) 
p C, Uay 
where the average heat transfer coefficient 15 evaluated from 
1 w 
i на J א‎ dis (5.124) 
(2L + 2t) Tw s — Т 


and s is measured along the heated surfaces. Computations are performed for air 
(Pr = 0.7) with a 38(x1) x 36(x2) grid and the results are shown in Figure 5.15. 
In all computations, L/H = 1.0 and t/H is varied. Also plotted in the figure are 
experimental data of Kays and London as read from reference [54]. These data 
have been obtained for t/H = 0.05, L/H = 1.14 (instead of 1 in the present case), 
and the (x3-direction width)/H = 5.9. Therefore, the geometric data approximate 
the present 2D computational domain. It is seen from the figure that the predicted 
friction factor data (solid lines) are in very good agreement with the experimental 
data (open circles). The predicted St x Pr?^? (dashed lines) trend, however, de- 
viates from the experimental data (open squares). But, as indicated earlier, it 1s 
difficult to approximate the exact boundary conditions of the experiment, which 
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Figure 5.15. Offset Fin (L/H) = 1 - variation of f and St x Pr?/? with Re. 


involved condensing steam for heating. This condition implies a nearly uniform 
temperature at the blocks. However, then, the heat transfer, unlike the flow, will 
not be periodically fully developed. According to [54], the effect of this deviation 
from the experimental condition on predicted St may not be greater than 10%. The 
reader should note that such departures from exact experimental conditions are 
often made in CFD analysis. 

The figure further shows that the effect of t/H on f is more significant than 
on the Stanton number. An approximate analysis carried out in [33] shows that the 
effect of a finite thickness fin is to create continuously disrupted laminar boundary 
layers on the fin surface and thus achieve enhanced heat transfer. Thus, although it 
1s important to include the effect of a finite fin thickness in the analysis, the results 
show that fin thickness must be optimised in order not to exact a severe penalty in 
pressure drop. 

To demonstrate the effect of Re, velocity vectors and temperature (T — 
Tmin)/(Tmax 一 Tmin) contours at an interval of 0.1 are plotted for t/H = 0.3 at 
three different Reynolds numbers in Figure 5.16. In each case, the core flow is 
nearly parallel to the x; axis but the strength of flow circulation in the fin-wake 
regions increases with Reynolds number. Similarly, as Re increases, the tempera- 
ture contours are seen to be closer near the heating surfaces, indicating higher heat 
transfer rates at higher Re. 


Turbulent Flow in a Pipe Expansion 
We now consider turbulent flow and heat transfer at a pipe expansion, as shown in 
Figure 5.1. The radius ratio (R2/ Ау) of the two pipes is 2. For prediction purposes, 
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Figure 5.16. Offset Fin (L/H — 1, t/H — 0.3) - vector & temperature plots. 


| ה 


the HRE عه‎ model is used. The predictions!® will be compared with the experimen- 
tal data of Krall and Sparrow [36] for Pr = 3.0 and of Runchal [62] for Pr = 1,400. 
Krall and Sparrow made measurements in a pipe with radius А› in which an ori- 
fice of radius R 15 fitted. Downstream of the orifice, a constant wall heat flux is 
supplied. Runchal employed a converging nozzle (with exit-end radius №) fitted 
in a pipe of radius R2. He employed an electro-chemical mass transfer technique 
to measure variation of mass transfer Stanton number downstream of the nozzle. 
The technique involves use of a NaOH solution whose Schmidt number (71,000) 
depends on the solution concentration. The electro-chemical technique measures 
transfer of ferrocyanide ions to ferricyanide 1ons at a cathode surface embedded in 
the pipe wall to estimate the rate of mass transfer. These rates are, however, very 
low so that the mass transfer measurements can readily simulate the heat transfer 
situation with Sc = Pr. The electro-chemical technique simulates a Tw = constant 
condition. 


1$ The USER file for this problem is given in Appendix C. 
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Figure 5.17. Sudden expansion, with R»/P4 = 2 and qw = constant. 


In both cases, the domain downstream of the orifice or nozzle is considered. At 
the inlet section, the specifications are uin = 4 x U, ein = (0.1 x uin), and ei, is 
evaluated from the specification ш/и = Cy, م‎ € /ein = 0.003 Re for 0 <r > А! 
and uin = 0 (wall) for ןא‎ > r x Ro. The Reynolds number of the larger pipe 15 
defined as Re = pu2 Rı/u. Computations are carried out with 0 = 1 and u = 1 
and R = 1. Thus, Re is varied by varying и. The Nusselt numbers at different 
axial locations are evaluated from Nu, = qw2 А/К (Ty — Ty), where T, is the 
bulk temperature and Tw is the wall temperature at each x. 

In the computations, 67 (streamwise) x 28 (radial) nodes were used with closer 
spacings in the recirculation region to accurately predict the point of reattachment. 
Because of the close near-wall spacings, it was not possible to ensure that the 
first node away from the wall will have sufficiently large y* at all axial stations. 
Therefore, the two-layer wall function is active for velocity (see Equation 5.86). 
For the temperature equation, P F is given by Equation 5.88. 

In Figure 5.17, predicted Nu,/Nug,; are compared with the experimen- 
tal data of Krall and Sparrow. Here, as per their recommendation, Мин = 
0.0123 Re957* P,9^ In these computations, the reattachment point is predicted at 
x/(2 R5) © 1.84 at all Reynolds numbers. The predicted Numax locations (21.81) 
thus appear to coincide with the point of flow reattachment. The high values of 
Numax/ Nug indicate that the recirculation region is by no means dead with respect 


146 


0.15 


St * 1000 


2D CONVECTION - CARTESIAN GRIDS 





0.12 
0.09 


0.06 


EXPT DATA Pr = 1400 






Re = 21300 

















PREDICTIONS Pr = 1400 


| 50000 
| Re = 20000 


100000 




















5 10 15 20 25 30 
2 





Figure 5.18. Sudden expansion, with Ro/R;, = 2 and Tw = constant. 


to heat transfer, although the flow velocities are very low there. This is a spe- 
cial characteristic of recirculating regions in which fluid mixing 15 enhanced. The 
predictions also appear to nearly match the trends shown by the experimental data, 
although the exact magnitudes of Numax are not well predicted. 

A similar comparison with the data of Runchal is shown in Figure 5.18. Here, 
Z = x/(R» — Ri) and St = Nu,/(Re Pr) so that the predicted flow reattachment 
occurs at Z = 7.43. The predictions, however, show that the maximum St occurs at 
nearly Z ~ 3.55. Thus, the point of reattachment and maximum heat transfer do not 
coincide. The experimental data, however, indicate that maximum St occurs at Z ₪ 
6.5. Thus, clearly our wall-function treatment with respect to heat transfer is in need 
of further refinement for very large Pr. It is possible to do so by invoking a three- 
layer model for heat transfer and setting different limits on the three layers. However, 
this 1s not done here to draw the reader's attention to the need for such empirical 
adjustments. At the same time, it must be noted that the electro-chemical technique 
really simulates the Tw = constant boundary condition only over a patch occupied 
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Figure 5.19. Natural convection mass transfer. 


by the cathode but remains inert to mass transfer on remaining portions 01 the wall. 
This may be an added reason for lack of correspondence between predictions and 
experiment. Modelling for separated flow regions at high Pr numbers is an area in 
which basic research 15 hampered by the extremely sharp variations of temperature 
in the near-wall region where, although the turbulent viscosity may be negligible, 
turbulent conductivity may still be significant. Thus, a constant Pr, assumption 
may not be justified. 


Natural Convection Mass Transfer? 
Figure 5.19 shows an open channel (width / and height Л) placed inside a wider 
channel of width L and height H. The wider channel is closed at the top. The inner 
channel wall thickness is 7. Both the channels are long in the хз direction. The inner 
channel has water whereas the wider channel has brine at its floor (x; — 0). The 
temperatures of water, brine, and the gas (air + water vapour) are the same and 
equal to the ambient temperature. In this isothermal case, evaporation will ensue 
because of the difference in vapour pressures at the water (high) and the brine 
(lower) surface. The vapour pressure at the brine surface can be altered by altering 
brine concentration. Thus, a mass transfer driving force is established. 

The inner channel may be viewed as the well-known Stefan tube in which the 
evaporation rate of water can be analytically evaluated under the assumption that 


1? The USER file for this problem is given in Appendix C. 
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the fluid inside the channel is stagnant. However, in the present case, because of the 
density gradient caused by the vapour-pressure difference, a mass transfer buoyancy 
force will induce fluid motion. The objective, therefore, 1s to examine the range of 
mass transfer Grashof numbers Grm for which the stagnant flow assumption may 
be reasonably justified. Such an inquiry has been undertaken by McBain et al. [47] 
in which the inner channel is a circular tube placed inside a cubical enclosure. We 
have modified this 3D configuration to accommodate a 2D analysis in Cartesian 
coordinates. 

We define L* = L/L, H* = H/l, h* = h/l, and t* = t/I. In this case equa- 
tions for Ф = и, из, о, and р’ must be solved. Invoking the Boussinesq approx- 
imation, except for the gravity-affected source term in the u;-momentum equa- 
tion, we assume the density will be constant. Also viscosity and mass diffusivity 
are assumed constant. Thus, the governing equations can be nondimensionalised 
using иў = u;/(v/I), p* = (p + pgx2)/p(v/1), œ = (c — од) ןש)/‎ — оо), and 
x; = xj/l. The relevant source terms are 








др* др* 
Su = 9х7 uj = Cx + Gra o, Sot = 0, (5.125) 
where Grm = ع‎ Въ (о — wo) l’ /v? and Bm = p^! др/до*. 
The boundary conditions are 
д * 
и eu. ” -0 onall walls, (5.126) 
On* 


where n is normal to the walls. The хү = 0 line is the symmetry boundary and 
computations are performed over the domain to the right of the symmetry line. The 
mass transfer boundary conditions on the floor (х5 = 0) are 








* 

ит = 0, 
00* 

ж __ 100% жү—1 % __ ж 

и; = Sc (ol – ат) axe , @ = о (water), 
X5 ху=0 
00" 





, @ = ox (brine), (5.127) 





where от = 1 and oy = 0. 

These specifications indicate that in the present mass transfer problem, the 
momentum equations are coupled with the mass transfer equation in two ways, 
firstly, through the source term Grm c* and, secondly, through the floor boundary 
condition. The dimensionless total evaporation flux is, therefore, given by 


*90 
גא 





ах. (5.128) 


ху=0 





1/2 
Кон 728! 0 زه‎ | 
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Table 5.2: Normalized evaporation rate R. 








Grm 1 10 100 500 1,000 2,000 3,000 
R 0.7065 0.7086 0.7293 0.756 0.768 0.781 2 





For а Stefan tube, the pure diffusion mass transfer rate is given by 


In(14- B) 
Fait = —————, 5.129 
diff Sem ( ) 
where the Spalding number В = —1/(1 — c7). Therefore, the flux ratio R will be 


a functional given by 


R- Коому _ f (Grm, H*, L*, 8с, B). (5.130) 
Faife 

In the present computations, h* = 2, L* = 16, H* = 8, t* = 0.1, and Sc = 
0.614 are fixed. Also, in a typical evaporation problem, B is small. We take wi = 50, 
giving B = 0.0204. Thus, with these specifications, R is a function of Grm only. 
Computations have been performed with 37 x 37 grid points with closer spacings 
near the inner channel wall and near the floor. Initially, only the mass transfer 
equation is solved. This corresponds to a stagnant fluid case. If *ن‎ = 0 at x} = h* 
then the evaporation flux will be given by Equation 5.129. However, in the present 
configuration, w* Æ 0 at x} = h* because the boundary condition is applied at 
the brine surface. This results in R — 0.704 for this limiting case. Now, the mass 
transfer equation is solved together with the flow equations for different values of 
Grm. Table 5.2 shows the results of computations. It is seen that the ratio increases 
with Grm. A similar trend has been observed in [47]. To ensure convergence, 
solutions for lower Grm were used to obtain solutions for higher Grm. 

The trend observed in the R ~ Gr, relation is further demonstrated in Fig- 
ure 5.20 through contour and vector plots over the domain 0 > xf > 2.5 and 
0 > х5 > 5.5. The figure shows that the inner channel remains nearly stagnant 
at Grm = 10. For higher Grm, the region near the top of the inner channel is influ- 
enced by the recirculation outside the channel. 


False Diffusion in Multidimensions 

In Chapter 3, the question of numerical false diffusion was explored through the 1D 
conduction-convection equation. Here, this matter 1s again considered for multidi- 
mensional flows through a problem devised by Raithby [57] (see Figure 5.21). We 
consider a square domain of unit dimensions through which a fluid moves with an 
angle 0 with the x axis. The viscosity and conductivity of the fluid are zero so that 
transport of temperature occurs by pure convection with Peclet number P — oo. 
At a certain streamline at yo = 0.5(1 — tan0), a step discontinuity in tempera- 
ture is imposed as shown in the figure. Thus, T = 1 above the streamline and Т = 0 
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Figure 5.20. Contours of о* (at an interval of 0.05) and velocity vectors for natural convection evapo- 
ration. 
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Figure 5.21. Transport of a step discontinuity. 


below it. Now, since Р = co, the discontinuity must be preserved in the direction 
of the flow. 

To examine the capability of the UDS for this large Peclet number case, the 
velocities are prescribed as и = U cos0 and v = Usin@ at all nodes and the tem- 
perature boundary conditions are as shown in Figure 5.21. The equation for T will 
read as 


07 07 
— +tand — = 0. (5.131) 
Ox ду 

This equation 15 solved for different angles 0 on a 12 x 12 grid. Figure 5.22 
shows the predicted T profiles at midplane x = 0.5. It is seen that the profiles 
are smeared. The profiles deviate from the exact solution; the deviation increases 
as Ө increases and reaches maximum at Ө = 45 degrees. Now, the profiles can 
be smeared only if numerical diffusion 1s present. This suggests that when the 
flow inclination with respect to the grid line is large, the numerical diffusion is 
also large. Conversely, if Ө = 0 or 90 degrees, the discontinuity in the temperature 
profile should be predicted. This is indeed verified by numerical solutions (not 
shown in the figure). Wolfshtein [89] has devised a method for estimating the false 
diffusivity (see exercise 12). 

What is observed here with UDS remains valid for all convection schemes, 
although the profile-shape-sensing CONDIF and TVD schemes demonstrate re- 
duced deviations and, therefore, reduced numerical diffusion. However, recognis- 
ing the angular dependence of false diffusion, some CFD analysts have proposed 
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Figure 5.22. Midplane temperature profiles - UDS. 


convection schemes that sense the angle 0. In effect, they postulate flow-oriented 
interpolations of cell-face values rather than use the nodal values straddling the cell 
faces. 


EXERCISES 
1. Starting with Equation 5.8, validate the generalisations shown in Equation 5.19. 
Hence, show the correctness of Equation 5.17 for each convection scheme. 
2. Derive the value of А in Equation 5.19 for the exponential scheme. 


3. Show that if the CONDIF scheme (see Chapter 3, Exercise 10) is used 
then, for a nonuniform grid, the coefficients 4E and AW in Equation 5.12, 
for example, will read as 


Eal — Р, dy | |Po,| Р, 
ава [i 3p | ki EL 








4 R: 4 


р, R, P P 
| 
4 1 4 
where Rz = (Фь — Фь)/(Фь — Фу) x Axy/Axe. 
(Hint: Recognise that CONDIF 15 essentially a CDS whose coefficients are 


modified to take account of the shape of the local profile). 


4. Using the substitutions shown in Equation 5.24, derive Equation 5.25. Hence, 
using the IOCV method, derive Equation 5.28. 


EXERCISES 


Z 





Figure 5.23. Long chamber of Exercise 11. 


2. 
6. 
Ve 


8. 
9. 


10. 


11. 


Starting with Equation 5.40, derive Equation 5.47. 
Show the validity of Equations 5.55 and 5.56. 


Identify the differences and similarities between Equations 5.57 for collocated 
grids and Equation 5.32 for staggered grids. 


Confirm that on collocated grids AP“ = AP”. 
It is of interest to derive a total pressure-correction equation for compressible 
flows in which p = pR,T. To do this, start with Equation 5.57 and write 


1 


ol! = pl tpl = pl + Pm = pl 4 P P) 


ReT Re 了 


With this substitution show thatthe p'-equation takes the form ofageneraltrans- 
port equation for any with appearance of convection-diffusion-like terms. 
Also, Уа = VY Rg T. Hence, show the Mach number dependence in the 
equation. If CDS is used, can the coefficients in the discretised equation (5.60) 
turn negative? If yes, suggest a remedy. 


Explain the need for evaluating the mass residual via Equation 5.73 when 
computing on collocated grids. 


Consider the chamber shown in Figure 5.23. The chamber is long in the 
z-direction so that the flow and heat transfer can be considered 2D. Assume 
that all relevant dimensions are given. The flow enters the chamber with 
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Figure 5.24. Estimating false diffusion. 


12. 


velocity ui, (as shown) and temperature Tin. The chamber walls and the lip 
separating the inflow and outflow are adiabatic. Allow for the presence of a 
buoyancy effect, 


(a) Write the appropriate differential equations and the boundary conditions 
for all relevant variables. 


(b) Carry out any necessary node tagging, defining clearly the convention 
used. For example, along AB, NTAGW (2, J) — 14 (say) to indicate the 
west adiabatic wall boundary. 


Solve the problem of false diffusion discussed in the text for the case of = 45 
degrees in which the boundary conditions are as shown in Figure 5.24. Take L = 
100 and yo = хо = 2 AS, where AS = AX = AY. The situation is therefore 
akin to that of a temperature source convected by U. Now, define orthogonal 
coordinates 5 and 7 as shown. Use UDS. Obviously, the maximum temperature 
Tmax Will occur at n = 0 for each £. Now, locate the value of ו[‎ 2 corresponding 
to T/Tmax = 0.5. Hence, plot the computed results as T/Tmax versus n/n1/2 for 
different values of £/ AS > 50. Show that the profies collapse on a single curve 


T 1] 2 
= exp 1 一 In(2) | 一 一 ， 
Tmax 11/2 


where 31/2/25 = (€/AS)°>. This equation is similar to the solution to the 
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REFRACTORY WALL 














Figure 5.25. Refractory furnace. 


equation of a wake, 
y QT y T =) 35). 
дё д? Tmax 4 Г false 5 
Hence, show that Prise ~ 0.361 UAS 


13. Derive Equation 5.94. 





14. Consideralong furnace made from refractory brick (k — 1.0 W/m-K), as shown 
in Figure 5.25. The temperature of the inside surface is 600°С whereas the 
outside surface is exposed to an environment at 30°С with heat transfer coeffi- 
cient h = 10 W/m?-K. Determine the heat loss from the furnace wall. 


15. Consider two parallel plates that are infinitely long in the x, and хз directions. 
Fins are attached to the plates in a staggered fashion, as shown in Figure 5.26. 


2L 
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Figure 5.26. Flow and heat transfer in a staggered fin array. 
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Figure 5.27. Fully developed flow in an ellipse. 


16. 


17. 


The flow is in the хз direction. The plates receive constant heat flux gw in the 
flow direction but, at any section хз, their temperature Tw is constant in the x; 
direction. The flow and heat transfer are fully developed. 


(a) Assuming laminar flow, identify the equations and the boundary conditions 
governing the flow and heat transfer 


(b) Nondimensionalise the equations and show that 


H L 6 Н L 6 kg ô 
fRe=F А Ми = Е ' 





B'B'B B’ B?’ B?’ kuia H 
(c) Compute f and Nu for B = L = 1, H = 1.2, and ô = 0.05. Take Cg, = 
k&n/ Каша = 0, 10, and 100. (Hint: Note that the fin half-width 8/2 must be 
treated as a blocked region through which 1D heat conduction takes place.) 


Consider fully developed laminar flow in a duct of elliptic cross section, as 
shown in Figure 5.27. The flow is in the хз direction. 


(a) Write the PDE governing distribution ofthe из velocity. Identify the small- 
est relevant domain, exploiting the available symmetries. 


(b) The duct wall boundary of the domain is curved. This boundary can be 
approximated by a series of steps. Hence, lay an appropriate Cartesian grid. 
Solve the governing equation and evaluate f x Re for B/A = 0.125, 0.25, 
0.5, and 1.0. 


Consider laminar flow between two parallel plates 2B apart, as shown in Fig- 
ure 5.28. The plates are infinitely long in the хз direction. Flow, with uniform 
axial velocity, enters at x; = 0. At a distance 5 from the entrance, an infinitely 
long cylinder of radius R is placed at the axis of the flow channel. The flow 
leaves the channel in a fully developed state. 


(a) Ideally, the flow situation should be computed with curvilinear or unstruc- 
tured grids. However, an analyst decides to compute it using a Cartesian 
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Figure 5.28. Flow in a parallel-plate channel. 


mesh. What is the main difficulty that the analyst will face if the drag 
offered by the cylinder is to be accurately determined. 


(b) Select the domain length from fluid dynamic considerations. Assume that 
the Reynolds number based on the channel hydraulic diameter is 40 and 
S/R = Запа B/R = 10. 


(c) How should the drag coefficient Cp of the cylinder be determined from the 
converged solution in discretised form? 


18. Consider laminar flow between two parallel plates separated by distance 2b. 
Specify the fully developed axial velocity profile at the inflow plane and zero 
axial velocity gradient at exit. Adapt the 2D computer program in Appendix 
C for this problem and solve with and without smoothing pressure correction. 
Observe the predicted velocity and pressure profiles in the two cases. Do you 
notice any difference? If not, explain why. 


19. Engine oil enters a tube (diameter = 1.25 cm) at uniform temperature Tin = 
160°C. The oil mass flow rate is 100 kg/hr and the tube wall temperature is 
maintained at Tw = 100°C. If the tube is 3.5 m long, calculate the bulk tem- 
perature of oil at exit from the tube and the total pressure drop. The properties 
of oil are as follows о = 823 kg/m?, Cp = 2,351 J/kg-K, v = 10? m?/s, and 
k = 0.134 W/m-K. Plot the axial variation of Nusselt number Nu, and the 
bulk temperature 7, x. Assume that the oil enters the tube with uniform veloc- 
ity. (Hint: You will need to provide close grid spacings near the tube wall to 
capture steep variations of temperature owing to the high Prandtl number. The 
grid spacings along the tube axis may expand in the direction of the flow.) 


20. Air at 7 bar and 100°C enters a nuclear reactor channel (width = 3 mm, length 
L — 1.22 m) at the rate of 7.5 kg/s-m?. The heat flux at the channel walls is 
given by qw = 900 + 2,500 sin (x x; /L) W/m?. Plot the variation of Tw, Tp, and 
Nu with axial distance x, and find the location of maximum wall temperature. 
Assume fully developed flow and evaluate properties at 250°C. 
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Figure 5.29. Flow in a channel containing rods. 


21, 


22, 


23. 


24. 


Consider fully developed turbulent flow in a pipe of radius Ё. Assuming that 
the inner layer extends up to y* — 100 from the wall, estimate the inner layer 
thickness as a fraction of R for Re — 5,000, 25,000, 75,000, and 100,000. 


Air at 30°С enters a tube (diameter D = 5.0 cm) of a solar air-heater with a 
uniform velocity of 10 m/s. The tube is 2.1 m long. The tube wall tempera- 
ture 15 90°С. Determine the exit bulk temperature and the pressure drop. Also 
determine the length-averaged Nusselt number. Use the HRE model. 


Repeat Exercise 22 assuming that the tube 1s rough with roughness height 
y; / D = 0.01. Use ће HRE model. For a rough surface, the velocity profile 
near a wall is given by [65] 


1 
и+ = d | =] +в. 
K 


Yr 
This equation can be cast in the form of Equation 5.86 so that 
1 8.48 
ut = – № [E y* ]. ке РОЛ: 
к Ve 


Thus, the wall-function treatment remains valid with E replaced by E,. Simi- 
larly, P F (Equation 5.88) must be replaced by РЕ; = 5.19 Pr?^ y+” — 8.48 
with Pr; = 1 [22]. (Hint: You will need to modify the BOUND subroutine and 
STAN function in the Library file in Appendix С to account for yp.) 


Consider steady turbulent flow in a two-dimensional plane channel (see Fig- 
ure 5.29) containing an array of rods (of diameter D). Flow enters at x; = 0 
with uniform velocity 01 in. It is of interest to determine the pressure drop 
over length L. To reduce the computational effort in this densely filled flow 
situation, model the flow as a porous-body flow in which it is assumed that the 
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Figure 5.30. Idealised desert cooler. 


channel contains no rods but the effect of their presence is captured through two 
artifacts: 

(1) The effective fluid density, viscosity, and pressure аге taken as Ф Y, where 
Ф = р, (u + w), and p, respectively, where W is the porosity defined as 


fluid volume 





1 physical volume ` 


(ii) The source terms in the u; and из momentum equations are augmented 
by including local flow resistance offered by the rods through experimentally 
determined friction factors f,, and f,, defined as 


А Sj S 
fu = E =F = c Керо , 
0.5 p ui | Viol D D 


where Vot = ui + из and u; are superficial velocities. Function F ( ) is 
assumed known but note that S; and Sr must be re-defined for the и» 
velocity. 


(a) Write the equations to be solved and choose an appropriate exit bound- 
ary condition assuming L/(2B) — 10. Specify the inlet conditions for all 
variables including the variables characterising turbulence. 


(b) Discuss whether the effect of flow resistance terms could be accounted for 
through source-term linearisation. 


Figure 5.30 shows an idealised desert cooler in which hot air (40°С and 10% 
relative humidity) enters the cooler inside through the 10-cm-wide gap with a 
velocity of 40 m/s. The air picks up moisture at the wet pad, which is supplied 
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with water at 25°С. The humidified air becomes cooler and leaves through the 

front grill. 

(a) State the equations governing the cooling process and identify the main 
variables Ф. 


(b) Specify the appropriate exit boundary condition. Assume an equilibrium 
condition at the wet pad. The wet pad is rough with roughness height 5 
mm. The top and bottom walls are smooth and may be taken as insulated. 


(c) Determine the average outflow temperature, relative humidity, humid-air 
velocity, and the rate of moisture pickup. 


6 2D Convection - Complex Domains 


6.1 Introduction 


In practical applications of CFD, one often encounters complex domains. A domain 
is called complex when it cannot be elegantly described (or mapped) by a Cartesian 
grid. By way of illustration, we consider a few examples. 

Figure 6.1 shows the smallest symmetry sector of a nuclear rod bundle placed 
inside a circular channel of radius R. There are nineteen rods: one rod at the channel 
center, six rods (equally spaced) in the inner rod ring of radius Р, and twelve rods in 
the outer ring of radius 22. The rods are circumferentially equispaced. The radius of 
each rod is r,. The fluid (coolant) flow is in the x3 direction. The flow convects away 
the heat generated by the rods and the channel wall is insulated. It is obvious that a 
Cartesian grid will not fit the domain of interest because the lines of constant x; or x2 
will intersect the domain boundaries in an arbitrary manner. In such circumstances, 
it proves advantageous to adopt alternative means for mapping a complex domain. 
These alternatives are to use 


1. curvilinear grids or 
2. finite-element-like unstructured grids. 


6.1.1 Curvilinear Grids 


It is possible to map a complex domain by means of curvilinear grids (£i, £7) in 
which directions of & and 52 may change from point to point. Also, curvilinear 
lines of constant £j and constant 52 need not intersect orthogonally either within the 
domain or at the boundaries. Figure 6.2 shows the nineteen-rod domain of Figure 6.1 
mapped by curvilinear grids. The figure shows that curvilinear lines generate clearly 
identifiable quadrilateral control volumes. When the IOCV method is used, the task 
is to integrate the transport equations over a typical control volume. To facilitate this, 
it becomes necessary to first transform the transport equations written in Cartesian 
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Figure 6.1. Example of a complex domain. 


coordinates to curvilinear coordinates via transformation relations 


xı = Ё|(#\,&›), х = Fy (i, ё). (6.1) 


In general, these functional relationships must be developed by numerical grid 
generation techniques (see Chapter 8). The grids shown in Figure 6.2 are in fact 
generated by numerical means. For simpler domains, however, the functional rela- 
tionships can be specified by algebraic functions. The new set of transport equations 
in curvilinear coordinates are developed in Section 6.2. 

One advantage of mapping domains by curvilinear grids is that one can still 
retain the familiar (/, /) structure to identify a node (or the corresponding control 
volume) because, as can be seen from Figure 6.2, along any curvilinear line £, the 
total number of intersections with constant-& lines remains constant and vice versa. 
Further advantages of this identifying structure will become clear in Section 6.2. 


6.1.2 Unstructured Grids 


Another alternative for a complex domain is to map the domain by triangles or any 
n-sided polygons (including quadrilaterals) or any mix of triangles and polygons. 
Figure 6.3 shows the mapping of a nineteen-rod bundle by triangles as an example. 
In this case, the rods are arranged in such a way that the smallest symmetry sector 




















Figure 6.2. Nineteen-rod bundle — curvilinear grids. 
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Figure 6.3. Nineteen-rod bundle — unstructured grid. 


15 a doubly connected domain. Such mapping can be generated by commercially 
available grid generators such as ANSYS. Each triangle may now be viewed as a 
control volume over which the transport equations are to be integrated to arrive at 
the discretised equations. The process of generating the latter equations is described 
in Section 6.3. 

It will be recognized that a triangle is a very convenient elemental construct 
because it can map any convex intrusion or concave extrusion at the domain bound- 
aries. More importantly, triangles can also effectively skirt any blocked region within 
the overall domain, as shown in Figure 6.3. Such skirting cannot be elegantly ac- 
complished if curvilinear grids are used for mapping. 

The flexibility offered by mapping by triangulation is thus obvious. Further, it is 
not necessary that all triangles be ofthe same size or shape. In spite of this flexibility, 
it becomes necessary to make a significant departure from curvilinear grid practise 
with respect to node identification when unstructured grids are used. It is obvious 
from Figure 6.3, for example, that one cannot readily identify elements (or nodes) 
by employing the familiar (/, J) structure as was possible with curvilinear grids. 
Elements, perforce, must be identified serially with a single identifier N (say). As 
will be shown in Section 6.3, commercial codes such as ANSYS identify elements in 
any arbitrary order. Thus, an element having identifier N will interact with elements 
having arbitrary identifying numbers without any generalisable rules. This contrasts 
with the case of curvilinear grids in which a control volume (7, J) will always 
interact with control volumes identified by (Z + 1, J), 7 — 1, J), (I, J + 1), and 
(1,7 — 1). 

This serial numbering has consequences for solution of discretised equations 
evolved on an unstructured grid. This will become clearer in Section 6.3. In passing, 
we note that there are a variety of methods for triangulation. Automatic triangulation 
requires detailed considerations from the subject of computational geometry. In 


163 


164 2D CONVECTION - COMPLEX DOMAINS 


Chapter 8, some simpler approaches will be introduced. Most CFD practitioners, 
however, employ commercially available packages such as ANSYS for unstructured 
grid generation. 


6.2 Curvilinear Grids 


6.2.1 Coordinate Transformation 


Our first task is to transform the transport equations in Cartesian coordinates to 
those in curvilinear coordinates. Thus, employing the chain rule, we can write the 
first-order derivatives as 
д 0& д 05 д 
Ox] ₪ Ox] дё\ Ox] дё’ 





(6.2) 


д — 0& д " 05 д 
ax 0x2 OE) ax 95 
The next task is to determine derivatives of £j and 52 with respect to xı and x2 
knowing functions (6.1). To do this, we note that 





(6.3) 




















Ox Ox] 
dx; =—d — 48, 6.4 
Xi ЗЕ & + 25 & (6.4) 
0X2 0X2 
ах = — d — d £5. 6.5 
х2 JE + ЗЕ & (6.5) 
These relations can be written in matrix form as |dx| = |A||d£&|, or 
dxı| _ |08/ןא9|‎ 0xi/8& | |d&i (6.6) 
dx; дх2/0&1 дх›/д& | | d & | | 
Now, manipulation of Equations 6.4 and 6.5 will show that 
1 
dé = ——— f d f d 6.7 
PE UA ec (=) и (=) °], 09 
d£, = l cof 0 dx, + cof 2x2 d (6.8) 
> Det A m iy i 


where cof denotes cofactor of and Det A stands for determinant of A. Thus, from 
the last two equations, it is easy to deduce that 


д 1 д 1 д 1 
да се (=) =) i (6.9) 
02 Det A дё Det A \ Det A 


д 1 0 1 0 2 
LM [2 | == (=) "e ; (6.10) 
0X2 Det A дё Det А \ 92 Det A 
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0 1 0 1 0 і 
5 _ уа == | h (6.11) 
Ox] Det A 0% Det A 136 Det A 
0 1 0 1 0 2 
52 _ at = „АЕ 38 (6.12) 
0x? | DetA 0% Det A \ дё, Det A 
where the 65 are called the geometric coefficients and are given by 
0X» дх\ 0X» дх\ 
1 2 1 2 
жо сё, 3 = ה‎ 三 (6.13) 
A ae 8-а 977088 = әв 
Further, it follows that 
dx, д dx, д 
Det ג‎ = Z1 202 _ Сл 002 _ gl B2 — pl g — J, (6.14) 





05, 98: | 982 0& 
where symbol J stands for the Jacobian of the matrix A. We can now rewrite 
Equations 6.2 and 6.3 as 








ә 1[,8 ,9 
נה‎ ₪ gc d ב‎ )6.15( 
Го 
נה‎ ₪ Т2 ב‎ )6.16( 


6.2.2 Transport Equation 


The first task is to transform the general transport equation (5.1) from the (x1, x2) 
coordinate system to the (£1, £2) coordinate system using relations (6.15) and (6.16). 
Thus, 

















APP) 1] 97g) , адб), 459042) | 29042) | | 
7 +3 (0 ae اا ו‎ CU Ug "s 
(6.17) 
This equation can also be written as 
a(o) 3(Blrqi) | 83(Blra)) | 89(Birq)) | 89 (Bra) 
CAU» ^ — 3h ^ ав ^ 3h ав 
|... [Bl apl api га 
= 1 | + ere + +9. )6.18( 


Using definitions (6.13), however, we can show that the terms in the square brackets 
are identically zero. Hence, Equation 6.18 can be written as 





д д 
+ — (Birqı + ВФ) + — )6 + Biraq) —rJS. 
dE dén 


(6.19) 
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Using Equation 5.2, it is now possible to replace Cartesian fluxes qı and q2. After 
some algebra, it can be shown that 











Hoe) a ie. oe 
9 л م‎ ag КУ м 
لطا‎ i [or Un Pu САДА 
0 E. 
d s دقن رن‎ di 
0&5 8 is Ё r4 
ITT. 89] alir. هق‎ 
= dA ga Js. 
x [' J ^x: + эс |] 7 es] 
(6.20) 
where 


2 2 
dj = (Bi) + (81), 
2 2 
442 = (8) + (22) > 
dAn = В.В + ВВ (6.21) 
and the contravariant flow velocities are given by 


0X2 0X2 


Un = 1 200 = 2и — ир, 6.22 

п = By חא‎ + piur לה‎ ur JE иә (6.22) 
Oxy Ox] 

Up = Byun + Byun = un — un, 6.23 

p = Bun + Byun JE игә ЗЕ ui (6.23) 


where иғ and ир are the Cartesian velocity components. 


6.2.3 Interpretation of Terms 


Several new terms appearing in Equation 6.20 can be interpreted using vector 
mathematics. 


Elemental Area 
The elemental area d A; normal to the (&;, &) plane is given by 


2 or or 
dA; = (= x =) d£; d£y, (6.24) 
0$; 5, 1 

where the position vector F = ixi jx + K xs. For our 2D case, if we set i = 1, 
j = 2, and k = 3 then وئ07/0‎ = дхз/0&3 = 1 because the хз and &3 directions 
coincide and are normal to the (£1, £2) plane. Thus, taking unit dimension in the хз 
direction gives 

or 
082 


> OX2 > 01 1 Е) 
1 é& = |і JE j JE & = |i бу + j و64‎ 











= y (B1) + (BY dg. (6.25) 
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Similarly, it can be shown that 


dA; = y (В!) (B2) а. (6.26) 


Comparison of the last two equations with Equations 6.21 shows that d 4; and 
d A» represent areas with dé; = d& = 1. 


Elemental Volume 
The volume element in curvilinear coordinates is given by 





or or or 
dV= . аё, d£; d&. 6.27 
m G ١ s) Sent coe 
Thus, taking i = 1, j = 2, and א‎ = 3, it follows that 
or or 122 221 
dV = ——. — dé, dê = (В| В; — Bi B2) а& dé. (6.28) 
052 0&5 


Comparison of Equation 6.28 with Equation 6.14 shows that the Jacobian ل‎ is 
nothing but element volume dV with dé, = 052 = 1. 


The Normal Fluxes 
Note that Equation 6.20 can be written in the following form: 


rJ 





a(p Ф) 0 0 _ 
- + JE [r qa] 十 % [7461 = ل‎ S, (6.29) 


where gz, and qz, are given by 








Ef. 280 a 
= oUg Ф - dA; — + аА = | 6.30 
qa = p Ug 7 ( ! 38 +2 22) (6.30) 
יי‎ 99 Ф 
, = рОрФ - dA5 — + аА — |. 6.31 
4, م‎ Vt 7 ( 236 1 12 =) ( ) 


With reference to Figure 6.4, these expressions represent total (convective + dif- 
fusive) transport of ® normal to the two curvilinear directions, respectively. The 
convective transport م‎ Ug Ф is thus directed normal to the constant-£; lines. In other 
words, ونا‎ is directed along the contravariant base vector a’. Note that, in general, 
lines of constant & and é do not intersect orthogonally. Thus, the total normal 
diffusive contribution is made up of two components. The first, containing d 8 
due to the property gradient along the covariant base vector direction a;, the second, 
containing d 41», is due to the property gradient along the direction €;, j 31. If 
the intersection of coordinate lines were to be orthogonal, d درك‎ = 0. Also, from 
Equations 6.13, it is clear that d مرك‎ can be both positive as well as negative. 
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Figure 6.4. Definition of node P and contravariant flow velocities. 


6.2.4 Discretisation 


Our next task is to discretise Equation 6.20 for the general variable Ф. To do this, we 
define the typical node P ofa curvilinear grid as shown in Figure 6.4. The cell faces 
(ne-se, se-sw, sw-nw, and nw-ne), as in the case of Cartesian grids, are assumed to 
be midway between the adjacent nodes. In curvilinear coordinates, Лё = Лё) = 1, 
as already explained. Then, using the IOCV method, integration! of Equation 6.20 
over the control volume surrounding node P gives 


rp Jp 
At 





(оь Dp — рр $$) + [Ce Be — de (Og - Фр)] 
— [Cy Pw — dy (Фр — Pw)] 
+ [Cn Pn — dn (Pn - Pp)] 
— [Cs Ф, — ds (Op — Ф5)] 
= АС. (Pre — Pse) + АС, (Psw — Pnw) 
+ ACn (Pre — Paw) + AC (Psw — Pse) 
+rp Jp S, (6.32) 


! Each term in Equation 6.20 is integrated as 


3 E (Term)dé; dé. 
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where the convective coefficients are given by 
Co = pere Une = pere [Pic ie + Bie 90е], 
Cw = бугу Uns рать [Big iw Pty Tw], 
Cn = parn Up, n = parn [80,91 + Bon Han , 




















C, = psrs Ups = و7وم‎ [Bi Tis F 5, Tzs] ， (0.33) 
and the diffusion coefficients are 
0 (r Гета A1) _ (г Ferd А3) 
е J , W 一 J 9 
= (r Ted А5) dx (r Гета A2) 
n J , S J 0 
AC, — (т Perd A12) | m (r Lewd 412) | 
J e J WwW 
1 م مع‎ 1 0 A 
AC, = (r " 12) АС, = (r - 12( | (6.34) 








In evaluating the convective coefficients (or the mass fluxes at the cell faces), 
the и at the cell faces are evaluated by linear interpolation from neighbouring 
nodal velocities. For example, Uie = 0.5 (ир + ик). Similarly, the values of Ф 
at the control-volume corners are also linearly interpolated. For example, Pne = 
0.25 (p + 95 + מא‎ + Фу). Finally, we note that the diffusion coefficients again 
have dimensions of conductance. 

Equation 6.32 applies to Ф = ,ره‎ из and all other scalar variables. When Ф = 1, 
however, we recover the mass-conservation equation. Thus, 

lp Jp 
At 
Now, making use of this equation, we can recast Equation 6.32 again in the following 
familiar form 


AP Фр = АЕ 95 + AW Фу + AN א9‎ + AS 6s + D, (6.36) 
where the convective—diffusive coefficients AE, AW, AN, and AS are given by 





(ор — pg) + Ce — Cw + Cn — C, = 0. (6.35) 


AE = da [A + тах(-Р,,0)], Р, = Ce/de, 
AW = dy, [A + max(P,,, 0)]. Pe = dw 
AN =d,[A+max(—P,,,0)], Р, = Cn/dn, 
AS = d; [A + max (P,,, 0)], Pa = uda 
rp J 

At | 





AP = 45 + 4 + א4‎ + А5 + )6.37( 
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In these expressions, А is given by the convection scheme employed (see Chapter 
5) and source D 15 given by 





гр Ј 
D —rpJp $ $$ 
rp Jp + At 5 Р 
+ AC, (Ф.е = Pse) T ACy (Psw = Paw) 
F АС, (Фе 55 Paw) קף‎ АС; (Psw - Pse). (6.38) 


6.2.5 Pressure-Correction Equation 


The appropriate total pressure-correction equation in Cartesian coordinates has 
already been derived in Chapter 5 (see Equations 5.57 with boundary condition 
5.58). Transforming this equation to curvilinear coordinates, we obtain? 


0 [sz ב-‎ 9 6 z| 








дё АР дё дё» AP"? д, 
9(p) | (orU') (огл) 
= А 6.39 
ليل‎ UT Е ша 


When Equation 6.39 is solved, the p' distribution is obtained. The next task is to 
recover the mass-conserving pressure correction р = р! — Plm: To evaluate pln 
we need to calculate p = 0.5(p,, + ريم‎ from solution of Equations 5.111 and 
5.112. Thus, to calculate р, , for example, we write 

_ 8 E Bi op! | Bibs 4 
م‎ | J d& J d& Jp 


+e [ERE BB ב‎ =. 
P 





д?р! 
ax? 

















(6.40) 
0& | J 85 J д& 


With reference to Figure 6.4, the discretised version of Equation 6.40 reads as 























ps (PE p) бА (Pre ра) 
BA (р) BE (up) 
T pre = Piw) + £n (PN pi) 
- BM (pe Pw) - 22 (Pp — Ps) =0. (6.41) 








2 [n Equation 6.39, cross-derivative terms containing d ورك‎ are dropped. This is because the pressure- 
correction equation is essentially an estimator of p;, and, therefore, in an iterative procedure the 
truncated form presented in Equation 6.39 suffices. It is of course possible to recover the effect of 
the neglected term in a predictor-corrector fashion. U are contravariant mean velocities. 
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Therefore, separating the solution for p5, we get 


A = (Bi. Ple PE + Bie Bie (Pne — Рье)} / Je 
+ {Biw бу Pw — Bis Ві, (Paw — Psw)} / Jw 
+ {Bon Ёз DN + Bis Bin (Pne — Рам) |/ Jn 
+ [82, B2. Ps — В, Ві, (рз — Psw) | / Js. 
_ BicBie | BiwBiw Вава ВВ 
Je Jd Jn Js 








B (6.42) 


Similarly, evaluation of p,, is accomplished from 9? p'/üx2 = 0 and evaluation 
of p is completed. 


6.2.6 Overall Calculation Procedure 


The overall calculation procedure on curvilinear grids is nearly the same as that on 
Cartesian grids. Some important features are highlighted in the following: 


1.Read coordinates xı(i, j) and x2(i,7) for i=1,2,...,7N and j= 
1,2,..., JN. Hence calculate the geometric coefficients 6, and areas and vol- 
umes once and for all. 

2. Ata given time step, guess the pressure field Di у; This may be the pressure field 
from the previous time step. 

3.Solve, using ADI, Equation 6.20 for Cartesian velocity components Ф = и! 
and и? with appropriate boundary conditions (see next subsection). 

4. Evaluate Up and Up from Equations 6.22 and 6.23. In these evaluations, the 
cell-face velocities ur! and ир are evaluated by arithmetic averaging. Hence, 
evaluate the source term of the total pressure-correction equation (6.39). Solve 
Equation 6.39 to obtain the p; ر‎ 

5. Evaluate p; ; as described in the previous subsection. Hence recover pj, ; ; to 
correct pressure as pj ^! = рі, + B تررم‎ 

6. Correct Cartesian velocities as 





pro / / / / 
rp = ui р Е дри [(81)ь (Pime - Pu) F (82), (Pinn m (| 0 (6.43) 


pra / / 
uzp — up ₪ АР [(81)ь (Prive - Pus) T (82), (Pa - 253] . (6.44) 


Note that АР"! = АР". 
7.Solve for other relevant scalar Ps. 
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Figure 6.5. Node tagging, for a curvilinear grid with a 180° bend. 


8. Check convergence through evaluation of residuals for momentum and scalar Ф 
equations. Evaluate the mass source residual Rm as appropriate for collocated 
grids (see Chapter 5). 

9.11 the convergence criterion is not satisfied, treat p'*! = p', Ф'+! = Ф! and 
return to step 3. 

10. To execute the next time step, set all b? = Ф and return to step 2. 


6.2.7 Node Tagging and Boundary Conditions 


Because of the applicability of the (7, 7) structure on curvilinear grids, there are 
many features that are in common with those described for Cartesian grids. Thus, 
one can readily use Su and Sp in Equation 6.36 to effect underrelaxation and 
boundary conditions. Node tagging too can be done as described in Chapter 5. 
Care, however, is needed in identification of the boundary type. To illustrate this, 
consider the computational domain for a flow in a duct with a 180° bend shown 
in Figure 6.5. The index / increases with & and J with 52. The flow enters at 
the west boundary. The west boundary is identified with J = 1, east with J = IN, 
south with J = 1, and north with J = JN. Note that although in the physical 
domain (as drawn) the east boundary appears to the west, in the computational 
domain it is identified 7 = ZN and the J index is seen to run downwards. Thus, 
NTAGE (IN - 1, J), J = 2,3, ..., JN — 1 will be tagged with 21, 22, 23, or 24 
depending on the type of boundary condition. Similarly, the south boundary in the 
return flow channel of the bend coincides with J = 1 but, in the physical domain, 
it is above the north boundary. 
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Figure 6.6. Gradient boundary condition. 





To illustrate implementation of flux (or normal-gradient) boundary condition, 
consider the west boundary shown in Figure 6.6. Let q be the specified flux. Then 





дФ 1 дФ дФ 
дп |a. Ј дё 952 ja 
= АЙ») (Ф|, = Ф› ;) + (ACyw),j (Psw Фу). (6.45) 


However, this representation involves ®,y апа Pnw, which are again boundary 
locations. Therefore, it is advisable to represent the normal flux directly as 











a® 1 
qdA,=-T'dA,—|  =————(Ф›у— Ф), (6.46) 
дп aj) An 
where the normal distance is given by 
д д 
Ап -( 1231482 72 | / 4 (6.47) 
д; 08; 


It is now possible to extract an expression for Ф ; and implement the boundary 
condition using Su and Sp in the manner described in the previous chapter. The exit 
boundary condition where the second derivative of a scalar variable is set to zero 
can also be derived from this condition. Specification ofthe exit boundary condition 
for velocity, however, requires care. This is because the boundary conditions are 
known only in terms of boundary-normal and tangential velocity components. The 
Cartesian velocity components are then extracted from this specification. More 
discussion of this matter is presented in the next section. Boundaries at which 
® is specified require no elaboration. Finally, the wall-function treatment for the 
HRE turbulence model requires special care because the wall shear stress must 
be evaluated from the wall-normal gradient of velocity parallel (tangential) to the 
wall. Details of these and other issues of discretisation can be found in Ray and 
Date [58]. 
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"зп 6.7. Vertex and element numbering on an unstructured PATA 


6.3 Unstructured Meshes 


6.3.1 Main Task 


As mentioned in Section 6.1.2, a typical domain may be mapped by triangular, 
quadrilateral, and/or n-polygonal elements. Here, we again consider a relatively 
simple domain shown in Figure 6.7. The domain is mapped by triangles using 
ANSYS. The domain consists of two horizontal parallel plates in which a circular 
arc bump is provided at the bottom plate. Flow enters the left vertical boundary and 
leaves through the right vertical boundary. 

When a domain is mapped in this way, ANSYS generates two data files: 


1. a vertex file and 
2. an element file. 


The entries of these two files are shown in Table 6.1. They correspond to Figure 6.7. 
In this figure, there are 42 vertices and 59 elements. Note that the vertex numbering 
is completely arbitrary. The vertex file provides serial numbers of vertices along with 
their x, x2, and x3 coordinates. Since the domain is two dimensional, all x3 are zero. 
The element file, in contrast, provides serially numbered elements (shown inside 
triangles) along with the identification numbers of three vertices (since triangular 
elements are generated) that form the element. Like vertex numbering, element 
numbers are also assigned arbitrarily. 

There are a variety of ways in which transport equations can be discretised on 
an unstructured grid. The two principal ones are [83] (a) a vertex-centred approach 
and (b) an element-centred approach. 


Vertex-Centred Approach 

In the vertex-centred approach, the collocated variables ® are defined at the vertices. 
Thus, vertices are treated as nodes. When the transport equations are discretised, a 
variable at node P (say) is related to variables at vertices in the immediate neigh- 
bourhood of P with which node P is connected by a line. The vertex and element 
files contain sufficient information to identify vertex or node numbers of vertices 
with which node P is connected. Such a data structure needs to be generated by 
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Table 6.1: Vertex and element files. 














Vertex file Element file 

NV X Xo X3 NE NV1 NV2 NV3 
1 0.5 0.0 0.0 ] 24 33 25 
2 1.5 0.0 0.0 2 24 32 33 
3 1.5 1.0 0.0 3 19 39 25 
4 —1.5 1.0 0.0 4 39 24 25 
5 —1.5 0.0 0.0 5 25 33 42 
6 6 


—0.5 0.0 0.0 42 33 17 
1 1.3229 10 0.0 12 8 РА 4 
24 -1.2708 0.2978 00 26 29 з 34 
7 0.509 03404 00 33 34 3s 1 
39 _ 13958 02127 0.0 56 7 à 27 
40 1.357 0.2127 0.0 57 9 10 26 


41 1.357 07659 00 58 19 25 18 
42  —1.3958 0.7659 00 59 20 21 24 





writing a separate computer program. It is clear from Figure 6.7 that different ver- 
tices will have different numbers of neighbouring vertices. In this approach, to 
adopt an IOCV method for discretisation, one needs to construct a control volume 
surrounding node P. Figure 6.8(a) shows a typical vertex P along with its neigh- 
bours. Different approaches are possible for the control-volume construction, but 
the one adopted here is as follows: 


1. Identify elements having a common vertex at P. 

2. Locate centroids of each element. This can be done by using known coordinates 
of vertices of each element. 

3. Connect the successive centroids by straight lines (shown dotted in Figure 6.8). 


The dotted lines will enclose P and thus form a control volume surrounding 
P. Such a construction at all vertices will yield a non-overlapping set of control 
volumes. Discretisation can now be carried out for a typical control volume. 

One disadvantage ofthis approach concerns application of boundary conditions. 
Thus, consider a vertex (or a node) at the junction of two boundaries as shown in 
Figure 6.8(b). Now, if the boundary conditions at the two boundaries of the junction 
are different, the boundary condition at the junction node cannot be uniquely de- 
fined. It is possible to overcome this difficulty but only at the expense of additional 
bookkeeping. 
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Т=Т, 
JUNCTION / 
NODE / / 
/ 
\ / 
Т=Т, / 
/ 
/ 
/ 
(а) 


(b) 
Figure 6.8. Vertex-centred unstructured grid. 


Element-Centred Approach 

In contrast to the vertex-centred approach, the element-centred approach regards 
each triangular (or polygonal) element itself as the control volume [see Fig- 
ure 6.9(a)]. Then, node P is defined at the centroid of the element such that 


1 
Xi p = 3 (Xii + Xi,2 3X3) 11:2, (6.48) 


and the coordinates of vertices 1, 2, and 3 are known from the vertex file. Note 
that node P will be identified by the identifier of the element to which it belongs 
because node P will always remain enclosed within its surrounding control volume. 
In this case, node P will have only three neighbours since triangular elements are 
considered. The identification numbers of neighbouring elements are, however, not 
a priori known. However, these can be determined from the element file because 
two neighbouring elements must share the same two vertices. To establish this 
connectivity between elements, a separate computer program must be written. 





B BOUNDARY 


(a) (b) 
Figure 6.9. Element-centred unstructured grid. 


6.3 UNSTRUCTURED MESHES 


The lines joining vertices will henceforth be called control volumes or cell faces 
and elements will be referred to as cells. Thus, a triangular element will have three 
cell faces. The same logic extends to polygonal cells. Now, it is easy to recognize that 
when nodes are defined at the centroids of cells, there is no node at the boundary 
to facilitate implementation of the boundary conditions. Therefore, a boundary 
node must be defined. We adopt the convention that the boundary node shall be at 
the center of the cell face coinciding with the domain boundary. This is shown in 
Figure 6.9(b) by point B. It will be recognised that even if there 15 a change in 
boundary condition on either side of a vertex, the boundary condition can now be 
effected without any ambiguity. 

Practitioners of CFD familiar with control-volume discretisation on structured 
grids prefer the element-centred approach [5, 46, 20] rather than the vertex-centred 
approach. In the discussion to follow, therefore, the element-centred approach is 
further developed. 


6.3.2 Gauss's Divergence Theorem 


The transport equation (5.1) in Cartesian coordinates is again considered here but 
without the presence of r for brevity? The equation is rewritten as 
d(p®) dq: _ A(p®) 


iv(g) = 6.49‏ = 
نا عد سن 01 Ox;‏ 01 





where the уесїог = iq + jq and i and j are unit vectors along Cartesian coor- 
dinates xı and хә, respectively. 

To implement the IOCV method, Equation 6.49 is now integrated over the 
elemental control volume shown in Figure 6.9. Thus, with the usual approximations, 
we have 


0 


ү И 
) مه‎ — pp Фр + div(q)dV = S AV, (6.50) 


ағ fay 
where AV is the volume (i.e., the area in the 2D domain with unit dimension in the 
хз direction) of the cell surrounding P. This cell volume can be calculated knowing 
the coordinates of the vertices. 

The second term on the left-hand side will now be evaluated by invoking Gauss's 
divergence theorem [70] applicable to a singly connected region. Thus, 


афа = | ДА, (6.51) 
AV C 


where 人 c is a line integral along the bounding surfaces (or lines in two dimensions) 
of the control volume and А 15 the local area vector normal (pointing outwards) to 


? This neglect in no way disqualifies the developments to follow. 
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Figure 6.10. Typical cell face ab. 


the bounding surface (line). The direction of C is anticlockwise. To make further 
progress, the line integral is replaced by summation. Thus, 


一 NK 一 
| و7‎ ٠. 4- @ Ay, )6.52( 
0 К=1 


where NK = 3 for a triangular element and k stands for the kth face of the control 
volume. Thus, the line integral is discretized into NK segments. 

To evaluate the dot product q - A at each cell face k, consider Figure 6.10, where 
evaluation at face ab (say) shared by neighbouring cells P and E is to be carried out. 
Let line PE be along the &, direction and line ab be along the 52 direction, where the 
latter direction is chosen such that Jacobian J (see Equation 6.14) is positive. Let 
lines PE and ab intersect at e. Now, depending on the shapes of cells P and E, e may 
lie within ab [Figure 6.10(a)] or on an extension of ab [Figure 6.10(b)]. Further, let 
п be the unit normal vector to ab pointing outwards with respect to cell P as shown 
in the figure. Then, using Equation 6.25, we get 


> 20X1 2,4, 2 
A=Ay-n=i—-j—=isB,t+ ， 6.53 
b 955 Ј 955 В. + 7B; ( ) 
where 
Bl = x» — Xa, B? = —Оль — xia), (6.54) 
Aab = Ack = (в!) + (в2)> = area of face ab, (6.55) 


and c is the midpoint of ab. The coordinates of c are 
1 
Xic = 2 ia + ХБ); (6.56) 


Substituting Equation 6.53 in Equation 6.52, we have 


2 
60 · Аа = (d · 0% Ack = (В! + 8242), = У (Bai), = Gn Ac. (6.57) 


j=l 
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We now recall that 





г dud (6.58) 


Therefore, 





2 | 2 .9 
(qs Ac) = рек Pex У (Bu), - Гек Y (s j (6.59) 
i=l j— ck 


Now, for brevity, we introduce following notation: 


2 
Cok = Pek > (8i и) a (cell-face mass flow) (6.60) 
i21 


and 





дФ 
—Гек Ack Se 
дп 





2 

; 9 中 
- כ‎ (3 
Thus, the total transport across the kth cell face is given by 
дФ 


(9 1 A)a = Cek Pok = Fek Ack e. 
дп 


) (normal diffusion). (6.61) 
ck ck 


(6.62) 





ck 


Note that the normal diffusion is evaluated directly in terms of a normal gradient 
rather than in terms of resolved components in & and éz directions as was done 
on curvilinear grids (see Equations 6.30 and 6.31). It is this feature that makes our 
diffusion transport evaluation equally applicable to 3D polyhedra. 

The convective and diffusive contributions to total transport across each cell 
face k must now be evaluated. In the literature [19, 46, 20], these contributions 
are evaluated in a variety of ways, but without invoking any /ine structure. The 
approach adopted here recognises the importance of a line structure analogous to 
the one available at the cell face of a structured grid. The existence of such a line 
structure at the cell face ofan unstructured grid, however, is not obvious because the 
line joining cell centroids P and E intersects cell face ab in an arbitrary manner, as 
shown in Figure 6.10. Therefore, a line structure must be deliberately constructed. 
This matter is considered in the next subsection. 


6.3.3 Construction of a Line Structure 


Our interest is to evaluate total transport (Equation 6.62) normal to the kth cell face. 
To carry out this evaluation, consider the more general face construction shown in 
Figure 6.10(b). This figure is again drawn more elaborately in Figure 6.11 to carry 
out the necessary construction of a line structure. 

The construction begins by drawing two normals (shown by dotted lines) to ab 
passing through e and c. Now, two lines parallel to ab are drawn passing through 
nodes P and E. Let the line through P intersect the face normal through e at P, and 


179 


180 


2D CONVECTION - COMPLEX DOMAINS 


כל 
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Figure 6.11. Construction of a line structure at cell face ab. 


that through c at P5. Note that these intersections at P, and P will be orthogonal. 
Similarly, let the face-parallel line through E intersect the two normals at El and 
E», respectively. 

With this construction, it is clear that Equation 6.62 must be evaluated along the 
line P2—c-E2. These evaluations, it will be appreciated, will now be similar to the 
evaluations carried out at the cell face ofa structured grid control volume. In the next 
two subsections, the convective and diffusive contributions are evaluated separately. 


6.3.4 Convective Transport 


Following the usual methodology, the convective transport term in Equation 6.62 
is evaluated as 


Cek Фо = Coal fox Pr, + (1 — fer) PE, Ie, (6.63) 


where fo are weighting factors that depend on the convection scheme used. If, for 
example, the UDS is used, then 





fox (UDS) = 0.5 (: En x , | (6.64) 
ck 
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where, following Equation 6.60, 


Сек = Pok [Bi u + Bi uz], - (6.65) 


Now, pek, U1,ck, and 7/2 ск are linearly interpolated according to the following general 
formula: 


Vo == [Ае We, + (1 == fm.c) VP,]. (6.66) 


In this evaluation the weighting factor can be deduced from the geometry of con- 
struction shown in Figure 6.11 as 


₪ __ [ве E lpe 








Ле 一 (6.67) 


9 
lp, в, Ip, в, lpE 


where /ъе and Љ є can be evaluated from known coordinates of points P, e, and E. 


6.3.5 Diffusion Transport 


For evaluation of diffusion transport in Equation 6.62, the face area Ае is known 
from Equation 6.55 and Г, can be evaluated from the general formula (6.66) or 
by harmonic mean. It remains now to evaluate the face-normal gradient of Ф. To 
do this, it is first recognised that point c, in general, will not be midway between 
points P and E>. Therefore, to retain second-order accuracy in the evaluation of 
this gradient, we employ a Taylor series expansion. 














дФ 2, 024 
Фр, = Ф, — ₪6 -- 2-5, 6.68 
95 Bex ל‎ Me 
|©ق‎ KPO 
Op, = Ф. + lec С I, 6.69 
5 +6 on|. 2 Ən ET De 








Eliminating the second derivative from these two equations and using Equation 
6.67, we can show that 
0d Pr, = Pp, 1 一 2 Jie E Фе, m % T (1 r2 fmc) Pp, | 


dn|. к, fmc (1 — fmc) 





lp, E2 


(6.70) 


fs (6.71) 


^ Note that this interpolation can also be performed multidimensionally as stated in Chapter 5. Thus, 
one may write 


where, from our construction, 


lg, = lg, 一 /PE > A = 








2 
כ‎ Bi Gus = xip) 
i=l 


1 1 
Wor = zl Jic Yr, + (1 = Ím c) VP] F 4 (V, + №). 
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In Equation 6.70, the first term on the right-hand side represents first-order- 
accurate evaluation ofthe normal gradient whereas the second term imparts second- 
order accuracy. In this latter term, if Ф, is evaluated from general formula (6.66) 
then the term will simply vanish. To retain second-order accuracy, therefore, ®, 
must be interpolated along direction ab. Now, since point c (see Figure 6.11) is 
midway between a and b, 


Dy = 0.5 (Par + Фы). (6.72) 


Using Equations 6.70 and 6.72, therefore, we can express the total diffusion trans- 
port as 


дФ — 
- (ra) == ck (Pg, = Pp, )x + dex Bok | c Px, - Ф, + (1 = fu)», ], 0 
ck 





(6.73) 
where 
Г Aga 
ia (6.74) 
lp, E> 
and 
бег m,c 
Bex Jo. (6.75) 


Е duel! - Trae) 
It will be recognised that 4 is nothing but the familiar diffusion coefficient 
having significance of a conductance. The symbol Bex is introduced for brevity. 


6.3.6 Interim Discretised Equation 


At this stage of development, it will be instructive to recapitulate derivations fol- 
lowing Equation 6.50. Thus, the volume integral in this equation is replaced by a 
summation of face-normal contributions in Equation 6.52. The total (convective + 
diffusive) face-normal contribution at any face is then represented in Equation 6.62. 
The convective component of the total face-normal contribution is given by Equa- 
tion 6.63 and the diffusive component by Equation 6.73. Therefore, Equation 6.50 
may now be written as 


AV 
(op Dp — pp Фо) А; 
05 


+ Ca [fe Pr, +A — /)%Фв,], 
К=1 


NK 
= 9 dek (PE, — Pp, )x 
= 





NK 
+ 》 dor Ber [fine Py — Pe + (1 - fc) ®r,], = SAV. (6.76) 
k=1 
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This discretised equation, however, is of little use because the values of variables 
at fictitious points P? and E» and at vertices a and b are not known. We must therefore 
relate values at these fictitious points to the values at nodes P and E. This matter is 
developed in the next subsection. 


6.3.7 Interpolation of ® at Po, E», a, and b 


If it is assumed that the Ф variation between P and Р» is linear then to first-order 
accuracy 


Dp, = p + AOp = Opt Ipp, - V Op, (6.77) 
where 
روم‎ = i (X1,p, — X1,p) + J (Хор, — X2,P), (6.78) 
and 
УФ =i | T (6.79) 








Taking the dot product in Equation 6.77 therefore gives 


2 
дФ 
АФь = > б, =й) |» (6.80) 
= P 


i=l 





where x; p, — x; p must be evaluated in terms of points whose coordinates are known. 
Thus 


Xjp, — Xi,P = Xi, P, — Xi,c + Xi,c — Хр. (6.81) 
However, from the construction shown in Figure 6.11, 
Xi, Pa — Xic = Xi,P, — Xie- (6.82) 
Therefore, Equation 6.81 is further reformulated as 
Xip, — Xip = [Xi,p; — Xie + Xie Хр] + Xic — Хе (6.83) 
Now, the equation to the face-normal passing through e is given by 


i (хе — Хә) + (Хе — Хә) В+ 7 Bl 
[Pie Ac 





(6.84) 


n- 


therefore 
P = е ° pi (6 85 
Xi, Pi Xie . Pi . ) 


and Equation 6.83 can be written as 


Xi P, — Xip = lxi + dxi, (6.86) 
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where 
₪ 1 
lxi = Xie — Xip — A. 6 (6.87) 
1 
dxi = 36 — Xie = 2 (Xia + Xib) — Xie; (6.88) 


lp ie = ₪6 * = 








2 
У (е – xip)p! / Ac. (6.89) 
i=l 


Now, since coordinates of e, P, a, and b are known, using Equations 6.86 and 
6.80, we can write Equation 6.77 as 


2 
дФ 
Фр, = Pp + АФр = Pp + › ) + dxi) - \ )6.90( 
i |P 


i-l 


Invoking similar arguments, it can be shown that 





Z (l= fmc), | 9 
Dp, = Og + 405 = Dp + а ₪ = СА) | (6.91) 
Now, ®, and Фь are evaluated as the average of two estimates in the following 
manner: 
Ф, = 0.5 [Op + Ipa V Op + De + Tg, V OE], (6.92) 
Фь = 0.5 [Фр + Ip, V Фр + Og + Ig, V ФЕ]. (6.93) 


6.3.8 Final Discretised Equation 


Substituting Equations 6.90 to 6.93 in Equation 6.76 and performing some algebra, 
we can write the resulting discretised equation as 


AV كم‎ 
(pp Pp = Pp 5) Ar sp У Сок [fc Фь + (1 = fo) PE]; 
К=1 


NK 
— - Я (Фе 一 p), 
= 


NK 
=SAV+)" Dy, (6.94) 
k=1 


where 
Dk = —dek Borl ђе Фе, = 0.5 (Pa + Фь) T (1 = Sine) Pp, ]к 
+44 ) ١ ١ع‎ — Ap) — Са [fe АФр + (1 - fe)A®E],. (6.95) 
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Further Simplification 
Grouping terms in Фр and عع‎ together, we can write Equation 6.94 as 


| ЭЗ] Pp = з {dex — (1 — fa)Cad Фе 


К= 


AV = 
+S AV + og E. + 》 Dr. (6.96) 
k=1 


It is possible to simplify this equation further. Thus, let coefficient of Фь be AE;. 
Then, 


AE, = dy — (1 — ₪6 (6.97) 


Now, for Ф = 1 (i.e., the mass conservation equation), Equation 6.76 gives 


АЎ & 
(ор — og) Ar T 2 Со = 0, (6.98) 
ог 


AV 
ЮР дт Pp “AL -> Сш. (6.99) 


Now, let AP be the multiplier of Фр in Equation 6.96. Then using Equations 
6.97 and 6.99, it follows that? 


AV كم‎ 
AP = pp +) | Mac fa Cal (6.100) 
k=1 
AV 
= PR D idu = 0C (6.101) 
p ДЕЦ. 6.102 
P At 2 k ( ) 


Thus, Equation 6.96 can be compactly written as 


AP oi = Y 40 esar eo А” ee Y nl (6.103) 
К=1 К=1 


> Note the similarity of Equation 6.102 with Equation 6.37 derived for curvilinear grids. 
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The following comments are now in order: 


1. Equation 6.103 has the familiar form in which the value of Фр is related to its 
neighbors Фу. 

2. Superscripts / and / + 1 are now added to indicate that terms D; containing 
Cartesian derivatives of Ф are treated as sources and therefore lag behind by 
one iteration. The same applies to the source term S. A method for evaluating 
nodal Cartesian derivatives is developed in the next subsection. 

3. Equation 6.103 applies to an interior node. When the control volume adjoins 
a boundary, one of the cell faces will coincide with the boundary. In this case, 
Og, for the boundary face will take the value of Pg, where B is shown in Fig- 
ure 6.9(b). For different types of boundaries, boundary conditions are different 
for different variables. Therefore, Equation 6.103 must be appropriately mod- 
ified to take account of boundary conditions. This matter will be discussed in 
Section 6.3.10. 


6.3.9 Evaluation of Nodal Gradients 


To evaluate the D, terms in Equation 6.103, Cartesian gradients of Ф must be 
evaluated (see Equations 6.90 to 6.93). This evaluation is carried out as follows: 


| 1 / дФ 
0 AV AV Ox; 
The volume integral here can again be replaced by a line integral and subsequently 
by summation. Thus 


06 


© Әх; 
Р i |p 


дФ 


Ox; 





dV. (6.104) 
P 











1 NK 


0 i 
> AV = AV 4 » P) (6.105) 


Ox; 








where 
Ф. = [fme Pr, T (1 一 fmc) يم‎ ]k 
= [fmc (Фе + زورك‎ + (1 — Ље)(Фр + АФь)],. (6.106) 


The appearance of АФ» in Equation 6.106 suggests that Equation 6.105 is 
implicit in 0®/dx; (see Equation 6.90). However, since the overall calculation 
procedure is iterative, such implicitness 1s acceptable. 


6.3.10 Boundary Conditions 


To describe application of boundary conditions, consider a cell near a bound- 
ary (Figure 6.12) with face ab coinciding with the domain boundary. Note that 
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BOUNDARY FACE 





^ 
7 
^ 


Figure 6.12. Line structure for a near-boundary cell. 


a boundary node B has already been defined [see Figure 6.9(b)] such that 
1 
8 = 5 (Xia + Xi,). (6.107) 


Thus, since the boundary node is midway between a and b, from the construction 
shown in Figure 6.11, it is easy to deduce that points B, c, and e will coincide on 
the boundary face. Therefore, to represent transport at the boundary, an outward 
normal (shown by a dotted line) is drawn through B. Now, let line PP2 be orthogonal 
to this normal and therefore parallel to ab. With this construction, the total outward 
transport through ab can be written as (see Equation 6.62) 


дФ 


@. Ав = Ce s - (Г 4)в | ， (6.108) 
ng 
where 
Св = ов (Bi ui + By ua), (6.109) 
Св Op = Cs [fe ₪ + (1 — /в)Фв]. (6.110) 


Now the cell-face normal gradient is represented by the first-order backward- 
difference formula 


J®| — (Pg — 5p) 








an |, = (6.111) 
In both Equations 6.110 and 6.111, 
> 2 дФ 
Фр, = Фр + АФр = Фр + pp, · У Фр = Фр + ) бав — xip) Эх, Ё 


(6.112) 
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Itis easy to show that 


= 





= Bi (6.113) 


dj. Ав. (6.114) 
Thus, Equation 6.108 can be written as 


(d - А)в = Св [/a(9» + A®p) + (1 — /в)Фв] — ав [Фв — Фр — ЛФь], 


Xp, — XiP = lyi = XiB — 


в = 


2 
У. (xiB — Xi. p)Bi 
i=l 








(6.115) 
where the diffusion coefficient is given by 
Гв А 
dee =, (6.116) 
lp,B 


Using Equation 6.115, implementation of boundary conditions for scalar and 
vector variables will be discussed separately. 

Scalar Variables: For the near-boundary cell, Equation 6.103 is first rewritten 
as 


NK-B NK-B AV 
op + 5 AE, | Ot! = و‎ AE, ФЕ + og — Фо 


At Р 
NK-B 5 
+SAV+ >》 Р—-(@. ولك‎ (6.117) 
К=1 


where NK — B implies that the boundary face contribution is excluded from the 
summation and accounted for through the --) ٠ A)g term. This accounting сап 
now also be done via Su and Sp as 


Su — Sp op = —(d - А)в 
= —Cs [fa (Pp + АФь) + (1 — /з)Фв] 
+ ав [Фв — Pp — АФр]. (6.118) 
Thus, when dB is specified, it is possible to write 
Su = —Cg [fg АФр + (1 — /в)Фв] + وك‎ [Pg — АФр], 
Sp = Св fe + йв. (6.119) 


Sometimes, boundary influx Fg = ГвдФ/дл |g is specified. Then, it can be 
shown that 


Su = —Cs [fa АФр + (1 — /в)Фв] + Fn Ав, 
Sess. (6.120) 


6.3 UNSTRUCTURED MESHES 


These two types of scalar boundary conditions typically suffice to affect physical 
conditions at inflow, wall, exit, and symmetry boundaries of the domain. 

Vector Variables: At inflow and wall boundaries, the velocities и; в are known 
and, therefore, Equations 6.119 readily apply. Care is, however, needed when exit 
and symmetry boundary conditions are considered. Thus, at the symmetry boundary, 
the known conditions are 


2 
= ов У Вішв = 0 (6.121) 
i-l 
ƏV 
—| =0 or Ив= Ир, (6.122) 
дп |p s 





where V, is the velocity tangential to face ab, which is therefore directed along £; 
(see Figure 6.12). Therefore, the unit tangent vector f can be written as 


E 


t= ila +j Lo, (6.123) 


where, /,, are zm by Equation 6.87. Thus, the tangential velocity 15 given by 
V; = Ki y 1 lx u; and Equation 6.122 can be written as 


2 2 2 
Y מו‎ = uio ipt Аш). (6.124) 
i=1 i=1 i=] 


Individual values of и; в can now be determined from simultaneous solution of 
Equations 6.121 and 6.124. 

At the exit boundary, boundary-normal gradients of both normal and tangential 
velocities are zero. Thus 








ƏV, 
—| =0 or Ив= Vp,, (6.125) 
дп |p 
av, 

5| 20 or 78 = Vam. )6.126( 
дп |в E 





Equation 6.125 isthe same as Equation 6.122 and, therefore, Equation 6.124 readily 


applies. The normal velocity component, however, is V, — V - n and Equation 
6.126 will read as 


2 


2 2 
У`Вішв= У Вішь, = У Bi Quo + Аш). (6.127) 
i=l i=l i=l] 


Again, the individual components и; в can be determined from simultaneous solu- 
tion of Equations 6.124 and 6.127. 
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6.3.11 Pressure-Correction Equation 


In Chapter 5, the total pressure-correction equation in Cartesian coordinates was 
derived to read as 











8 Г. ap] 9(ow) др 
Г | = ‚ 6.128 
Ox; | ; =| Ox; » 01 ( ) 
where 
i AV 
= Pr. | (6.129) 


In this definition of '?', به‎ and АР“ are, respectively, the underrelaxation factor and 
the AP coefficient used in the momentum equations. Invoking the Gauss theorem 
again, the discretised version of Equation 6.128 will read as 


VA cr AV 3% 0 
AP p, = у, AEx psy ל‎ Ca - حب زوم -مم)‎ + Уе, (6130) 
К=1 k=1 k=1 


where AP = УА AE; and 


(C (Г? Adee 


AE, = d? = (6.131) 


lp, E> 


Two comments are now important: 


1. The D? “term in Equation 6.130 will contain Cartesian gradients of p'. However, 
during iterative calculation, since the pressure-correction equation is treated only 
as an estimator of р’, рр 15 set to zero. 

2. Evaluation of p in Equation 6.131 will require evaluation of AV and AP" 
at the сей face (see Equation 6.129). The evaluation of cell-face volume can 
be accomplished via a fresh construction at the cell face as shown in Fig- 
ure 6.13. The construction involves drawing lines parallel to ab passing through 
P, and E>. Then, two lines parallel to normal л (and, hence, parallel to line 
РЕ») are drawn through a and b. The resulting rectangle 04--03--02--ן0‎ will have 
volume 


AV. = lav x в, х 1 = Ас lp,p,. (6.132) 
Using this equation therefore gives 
A? 
AE, = 20 4D. (6.133) 
APS 


where 4P = AP}! = AP' can be evaluated from formula (6.66). 


6 Alternatively, one may evaluate АР“ exactly by carrying out a structured-grid-like discretisation 
over the control volume cı—c2—c3—c4. This is left as an exercise. 
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Figure 6.13. Construction of a cell-face con- 
trol volume. 





Thus, the final discretised pressure correction equation is 


NK NK AV 
AP py = У, AEk Px — У, Ca — (pp — оў) ^ (6.134) 
k=1 k=1 


where AF; is given by Equation 6.133. Equation 6.134 must be solved with 
др'/дп |g = 0, which can be accomplished simply by setting АЕ, = 0 for the 
boundary face. After solving Equation 6.134, the mass-conserving pressure cor- 
rection is recovered as ph = p' — Pla = р! — 0.5(pl — p. 


Evaluation of p 
Recall that Pp = 0.5(p,, + p,,), where p, is determined from solution of 
9? p/dx? |p = Thus Px,» for example, is evaluated from 


P ду fa 82 Ox] у? бй! зг ax, 


Now, the pressure gradient at the cell face is evaluated by applying Gauss’s theorem 
over the volume .03-64--02--ן6‎ Then, it can be shown that 


1 ap 


==, = = 0. al 
AV J ax? =ош 











ck ck 


др 
021 


_ Ахәв, PE, + AX2,b рь + АХәр, рр, + AX2,a Pa 


= ‚ — (6.136) 
ck AV x 








where 


Ах в, = (X25, — X2); 
Ax2b = (X2,c4 m Ха), 
Ax2 P， == (X2,¢, - Хә), 


Ахә а = (000 — 2,0). 
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However, note that 
1 
AXo.g, = —Ax2,p, = Хь — X2,a = By 


and 
2 


fi = Ві. — Хур) 


Аха = 一 Ax2b = X2,E; — Х2,р, = X2,E; — X2,P, = 








/4 


Making these substitutions in Equation 6.136 and carrying out the summation 
indicated in Equation 6.135, and further separating out ןק‎ p = pp, we obtain an 
explicit equation for p,, p that reads as р, p = А/В, where 


As 3 | (n (pe + Аре — Apr)| / A Va 


К=1 
NK 


- 》 [Bi (2,2, — xa») (Po — pa)]/ АР, (6.137) 


k=l 


and 
ay / AVe, (6.138) 


where рь and p, are evaluated using Equations 6.92 and 6.93. Similarly, we obtain 
an equation for p,, p = 4/B, where 


A- ) [69 ? (pe + Ape — App) | / AVex 


МК 


- У [80 — хр) (рь — p2]/ АУ (6.139) 
К=1 
апа 
NK 


=D )/ AVa. (6.140) 


6.3.12 Method of Solution 


Our interest is in solving the set of equations (6.103) for all interior nodes P. Thus, if 
there are N E elements, there are N E equations for each variable. Again, equations 
for each variable are solved sequentially (see the next subsection). It has been noted 
that the A P coefficients will dominate over the neighbouring coefficients A E;. But, 
the positions of AE; in the coefficient matrix [A] will be arbitrary because of the 
manner in which neighbouring nodes are numbered during grid generation using 
ANSYS. This is unlike the case of structured grids (both Cartesian and curvilinear) 
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where A P occupies the diagonal positions and the neighbouring coefficients occupy 
the off-diagonal positions, forming a pentadiagonal matrix (in the 2D case). It is 
this special feature of the structured grids that permitted employment of the ADI 
solution method. 

The arbitrary [A] matrix formed on unstructured grids is called a sparse matrix. 
For such matrices, rapidly convergent methods such as conjugate-gradient (CG) 
and generalised minimal residual (GMRES) are available [3]. These methods are 
particularly attractive when the number of elements and, hence, the number of 
equations requiring simultaneous solutions are large. Description of these methods 
15 considered beyond the scope of the present book. However, the diagonally 
dominant position occupied by the AP coefficient in our equations still permits 
employment of the simple point-by-point GS procedure. Thus, the equations can 
be solved by a simple routine as follows: 


DO 1 א‎ = 1, NE 

SUM = SU(N) 

DO 2 K= 1, NK(N) 
NEBOR = NHERE(N, К) 


2 SUM = SUM + AE(N, К) * FI(NEBOR) 
FI(N) = SUM / (AP(N) + SPCND) 
1 CONTINUE 


where NK(N) stores the number of neighbours of node N, NHERE (N, K) stores 
the element number of the kth neighbouring node of N, and source term SU (N) 
and AP (N) and SP (N) have already been calculated. 


6.3.13 Overall Calculation Procedure 


The important features of the overall calculation are described through the proce- 
dural steps that follow. 


Preliminaries 

1.Read element and vertex files. Determine neighbouring elements of each node 
N to form NHERE (№, К). This is done by searching the shared vertices between 
neighbouring elements. Note that there will be no neighbouring elements when 
a boundary face is encountered. At such a face, a boundary node is created 
and such nodes are identified with numbers NE + 1, NE + 2, etc., where NE 
are the total number of elements read from the element file. The coordinates of 
interior nodes are calculated using Equation 6.48 and of boundary nodes using 
Equation 6.107. 

2. Tag the boundary nodes with identification numbers for inflow, symmetry, wall, 
and exit boundaries. Note that here boundary nodes rather than near-boundary 
cells are tagged. This is unlike the practice on structured grids. 
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3. Knowing coordinates of nodes and vertices, calculate bi, lx, dy, fori = 2 and 
Х.с and A, for each face of every node. This is a once-and-for-all calculation 
and all these quantities are stored in two-dimensional arrays (N , K). In addition, 
AV is calculated for each cell. 


Solution Begins 

4. At a given time step, guess the pressure field p’. 

5. Solve Equation 6.103 for = и! and u}. The solution is preceded by evaluation 
of AE (№, K) and AP (N), SP (N), and the entire source term SU (N) in Equation 
6.103. It is assumed that SU and SP are appropriately modified to account for 
boundary conditions. 

6. Perform a maximum often iterations on Equation 6.134 for p'. Here AE (N , K) 
are evaluated from Equation 6.133 and the source term containing mass fluxes 
15 evaluated from Equation 6.65. 

7. Recover ће p/, distribution from ph, = p' — 0.5(p! — pl), where р' is evalu- 
ated from Equations 6.137 to 6.140. 

8. Apply pressure and velocity corrections at each node. Thus 


р —pptBpape 0 > 8 > 1 )6.141( 


/ 
ТЕ І a AV op, 
Ир =U; p— , 
' AP" Ox; Р 








(6.142) 


where the pressure gradient 15 evaluated using Equations 6.105 and 6.106. The 
mass-source residual Rm is evaluated from Equation 5.73, where AP and 4, 
coefficients are the same as in Equation 6.134. 

9. Solve Equation 6.103 for all other relevant scalar ds. 

10. Check convergence by evaluating residual Ra via the imbalance in Equation 
6.103 for each Ф as explained in Chapter 5. Special care is again needed in 
evaluation of the mass residual Rm. This is evaluated from the imbalance in 
Equation 6.134 in which p’ is replaced by р. 

11.If the convergence criterion is not satisfied, treat ק‎ = p! and Ф/+! = Ф! and 
return to step 5. 

12. To execute the next time step, set all b? = Ф/+! and return to step 4. 


6.4 Applications 


Flow over Banks of Tubes 

In shell-and-tube heat exchangers, the flow on the shell side takes place over a bank 
of tubes several rows deep. The flow is aligned at various angles to the axis of 
the tubes. However, for preliminary design work, the flow may be assumed to be 
transverse to the axis (1.e., a cross flow). This configuration has been extensively re- 
searched and experimentally determined data are available [91] for different values 
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INLINE ARRAY STAGGERED ARRAY 


Figure 6.14. Flow across banks of tubes. 


of aligned and staggered arrangement of tubes. The important geometric param- 
eters are (see Figure 6.14) longitudinal pitch Sj, transverse pitch Sr, and tube 
diameter D. Here, we consider cases of S,/D = Sr/D = 2 for the inline array and 
SL/ D = ST/D = 1.5 for the staggered array. 

For the purposes of computations, however, the smallest symmetric domain 
must be considered. Such domains are mapped by curvilinear grids as shown in 
Figure 6.15. In these domains, the north and south boundaries are partly symmetric 
and partly occupied by tube wall but the west and east boundaries are periodic. Note, 
however, that in the inline array, the periodicity 15 even whereas a cross-periodicity 
occurs in the staggered array with respect to the uz velocity. Computations have 
been performed using 45 x 15 grids for the inline array and 41 x 15 grids for the 
staggered array. For turbulent flow, the standard HRE model with two-layer wall 
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Figure 6.15. Computational domains for inline and staggered arrays. 
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Figure 6.16. Variation of f and Nu with Re for 57/0 = $ /0 = 2. 


functions has been used with one modification. Thus, in Equation 5.87, (ut + PF) 
is replaced by [x ^! In(E y^) + PF]. All predictions are performed for Pr = 0.7 
and a constant wall heat flux (qw) boundary condition is assumed at the tube walls. 
For laminar flow, global underrelaxation is used to procure convergence whereas 
for turbulent flow, 2 false transient technique is used. The friction factor and 
Nusselt number are evaluated as 
dp Sr 0 Ар 2 dw D 


= 0.5 — Nu = = — 1 
f dx p m K K (Ty - in) 








(6.143) 


respectively, where Tw is the average wall temperature over forward and rear tubes 
and Tin is the bulk temperature at the inlet periodic boundary. For the chosen values 
of Sy and Sr, Vmax = Win, the bulk velocity at the inlet periodic boundary. Finally, 
the Reynolds number is defined as Re = р Vmax כ1‎ / ]4. Since the flow is periodic, 
the average streamwise pressure gradient is specified and Re is the output of the 
solution. 

Figure 6.16 shows the predicted f (open circles) and Nu (open squares) for the 
inline array. For the 2 x 2 array and Re > 2,000, correlations due to Grimison [25] 
[Nu = 0.229 Re? 9? (dotted line)] and Zhukauskas [91] [Nu = 0.23746 Re? 9? for 
Re > 2 x 105 and Nu = 0.01842 Re9*! for 2 x 10° < Re > 2 х 106 (solid line)] 
are plotted in the figure. These correlations are developed for constant tube-wall 
temperature but are used as a reference for the constant wall heat flux predictions 
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Figure 6.17. Variation of f and Nu with Re for St/D = S, /0 = 1.5. 


considered here. It is well known that for near-unity Prandtl numbers, turbulent 
flow correlations are typically insensitive to the type of boundary condition. The 
figure shows that the present turbulent-flow Nu predictions are in good agreement 
with the correlations. Similar agreement is also obtained by Antonopoulos [2]. The 
friction-factor data of Zhukauskas are read from an available graph and are shown 
by a solid line. The presently predicted turbulent-flow friction-factor data are seen 
to be substantially above the experimental data. Unfortunately, predicted friction- 
factor data are not reported in [2]. In the laminar range, however, the friction-factor 
data show the expected steeper slope with Re but no correlations are available for 
comparison. 

Figure 6.17 shows a similar comparison for the staggered array. Here again, 
the turbulent-flow friction-factor data show gross overprediction but Nu data are 
in excellent agreement with the correlation due to Zhukauskas. The laminar-flow 
Nu shows a peculiar decline at Re ^ 120. This is because ofthe change in the flow 
structure at this Reynolds number, which in turn alters the temperature distribution. 
For Re « 120, the maximum temperature occurs at the rear tube, whereas for 
Re > 120, the maximum temperature occurs at the forward tube. 

In summary, we may state that for both inline and staggered arrays, the predicted 
turbulent Nu data are in good agreement with the experimental correlations but the 
predicted turbulent f data are in poor agreement with the Zhukauskas correlations. 
Although the latter correlations are taken as standard, it may be noted that there 
are other researchers whose experimental correlations for f are in much closer 
agreement with the present predictions. 
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Figure 6.18. Velocity vectors, turbulent kinetic energy, and turbulent viscosity for an inline array. 


Figures 6.18 and 6.19 show typical plots of velocity vectors and contours of 
turbulent kinetic energy (e/ V2...) and turbulent viscosity (4/14). The vectors show 
regions of separation and reattachment behind the forward tube. The energy con- 
tours (range: 0—0.1, interval: 0.005) show that the energy levels are high near the 
solid walls where the flow shear is also high. The energy levels in the flow sepa- 
ration region are not insignificant. For the inline array, the viscosity contours for 
Re = 12,000, (range: 0—400, interval: 20) and for Re = 81,500, (range: 0-3 0 
interval: 150) show that turbulent viscosity is high near the walls, where kinetic 
energy is high. The levels of viscosity, however, increase with increase in Reynolds 
number as expected. The viscosity contours for a staggered array show similar 
trends. However, notice that at similar Reynolds numbers (for Re — 12,417, range: 
0-200, interval: 10; for Re = 10°, range: 0-2,000, interval: 100) the viscosity levels 
are lower than those found for the inline array. 


Gas-Turbine Combustion Chamber 
Flow in a gas-turbine combustion chamber represents a challenging situation in 
CFD. This is because the flow is three dimensional, elliptic, and turbulent and 
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Figure 6.19. Velocity vectors, turbulent kinetic energy, and turbulent viscosity for a staggered array. 
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Figure 6.20. Idealised gas-turbine combustion chamber. 


involves chemical reaction and the effects of radiation. In addition, the fluid proper- 
ties are functions of both temperature and the composition of combustion products 
and the true geometry of the chamber (a compromise among several factors) is 
always very complex. 

Figure 6.20 shows an idealised chamber geometry. The chamber is taken to 
be axisymmetric of exit radius R = 0.0625 m and length L = 0.25 m. In actual 
combustion, aviation fuel (kerosene) is used but we assume that fuel is vaporised 
and enters the chamber with air in stoichiometric proportion. That is, 1 kg of 
fuel is premixed with 17.16 kg of air. Thus, the stoichiometric air/fuel ratio is 
Rstoic = 17.16. The fuel-air mixture enters radially through a circumferential slot 
(width = 3.75 mm located at 0.105 L) with a velocity of 111 m/s and a temperature 
of 500*C (773 K). Additional air 1s injected radially through a cylindrical portion 
(called casing) of the chamber through two circumferential slots.’ The first slot 
(width = 2.25 mm located at 0.335 L) injects air (called secondary air) to sustain a 
chemical reaction in the primary zone; the second slot (width — 2.25 mm located 
at 0.665 L) provides additional air (called dilution air) to dilute the hot combustion 
products before they leave the chamber. The secondary air is injected with a velocity 
of 48 m/s and a temperature of 500°C. The dilution air is injected at 42.7 m/s and 
500*C. The mean pressure in the chamber is 8 bar and the molecular weights of 
fuel, air, and combustion products are taken as 16.0, 29.045, and 28.0, respectively. 
The heat of combustion H, of fuel is 49 MJ/kg. 

With these specifications, we have a domain that captures the main features of 
a typical gas-turbine combustion chamber. The top panel of Figure 6.21 shows the 
curvilinear grid generated to fit the domain. In actual computations, the domain 
15 extended to L = 0.8 m to effect exit boundary conditions. A 50 (axial) x 32 
(radial) grid is used. In this problem, inflow (at three locations), wall (west, north, 
and part of south), symmetry, and exit boundaries are encountered. Equations for 
Ф = и}, U2, p’,e, e, and T must be solved in an axisymmetric mode. In addition, 


7 [nactual practise, radial injection is carried out through discrete holes. However, because account- 
ing for this type of injection will make the flow three dimensional, we use the idealisation of a 
circumferential slot. 


199 


R=0.0625 m 


200 


2D CONVECTION - COMPLEX DOMAINS 


GRID 


1 




















7 
1 
1 





























































































































































































































+ 
ו 


' 
D 
- 


VECTOR PLOT 


E EE 







4 / 


, KE , 


TAR 入 


е ГОО 

















Wen 
WU enn 


1м 
М, 
ريست‎ 











HH 











TURBULENT VISCOSITY 









































0.1 





0.9 





Figure 6.21. Grid and flow variables for a gas-turbine combustion chamber. 


equations for scalar variables روه‎ and a composite variable V = cg — Wair/ Rstoic 
must also be solved. The latter variable is admissible because a simple one-step 
chemical reaction, 


(1) kg of fuel + (Rg) kg of air > (1 + Rs) kg of products, 


15 assumed to take place. Thus, there are eight variables to be solved simultaneously. 
The source terms of flow variables remain unaltered from those introduced in 
Chapter 5, but those of T, wf, and Y are as follows: 


0 Ка Н, 


Son = – Кы, 8 = 0, S , 
u fi V T С, 





Ва = Сроһ <, (6.144) 
е 


where ће volumetric fuel burn rate Ra, kg/m3-s is specified following Spalding 
[74] with С = 1. This model is chosen because it is assumed that the fuel-burning 
reaction is kinetically controlled? rather than diffusion controlled. Note that in the 
specification of Sy, the radiation contribution 15 ignored. 


8 Ideally, Rs, should be taken as the minimum of that given by expression (6.144) and the laminar 
Arrhenius expression for the fuel under consideration. Here, Equation 6.144 is used throughout the 
domain so that the burn rate is governed solely by the turbulent time scale 6/6. For further variations 
on Spalding's model, see [44, 24]. 
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The combustion chamber walls are assumed adiabatic. The inflow bound- 
ary specifications, however, require explanation. At the primary slot, и = 0, 
из = 100, 6 = (0.005 x u2}, € = Cope Iu R,), where viscosity ratio А, = 
ш/и = 10, T = 773, om = )1 + Rgtoic) |, and V = 0. At secondary and dilution 
slots, иә = 一 48 and —42.5, respectively, and e = (0.0085 x u2)*, Ry = 29, T = 
773, cg, = 0, and Y = --1 / عزوو‎ are specified. Finally, fluid viscosity is taken as 
u = 3.6 x 107^ N-s/m? and specific heats of all species are assumed constant 
at C, = 1,500 J/kg-K. The density is calculated from p = 8 x 10? М /(Ru T), 
where R, is the universal gas constant, Ma = fa/ Mg + Oair/ Mair + Opr/ М, 
and the product mass fraction is ор = 1 一 of — Mair. 

In this problem, the equations are strongly coupled and an initial guess for 
variables is difficult to determine a priori. To ensure convergence, therefore, the 
false-transient technique is used with At = 107°. Convergence is declared when 
residuals for all variables (except е and є) are less than 10-3. Further, it is ensured 
that the exit mass flow rate equals (within 0.1%) the sum of the three flow rates 
specified at the slots. A total of 12,500 iterations are required. 

In the middle panel of Figure 6.21, the vector plot is shown. The plot clearly 
shows the strong circulation in the primary zone with a reverse flow near the axis 
necessary to sustain combustion. All scalar variables are now plotted as(® — Pmin)/ 
(Prmax — Pmin) in the range 0—1 at a contour interval of 0.1. For turbulent viscosity, 
Mtmin = 0 and imax = 0.029; for temperature, Tmin = 773 K and Tmax = 2,456 K 
(adiabatic temperature = 2,572 К); for fuel mass fraction, c min = 0 and eg, max = 
0.055066, and for composite variable, Vin = —0.058275 and Ymax = 0. The bot- 
tom of Figure 6.21 shows that high turbulent viscosity levels occur immediately 
downstream of the fuel injection slot and secondary and dilution air slots because 
of high levels of mixing. 

The top panel of Figure 6.22 shows that the fuel is completely consumed in the 
primary zone. Sometimes, it is of interest to know the values of mixture fraction 
f= fuoi + Ч (1 — fuc), Where fuoi, = (1 + Retoic) |. From the contours of Y 
shown in the middle panel of Figure 6.22, therefore, values of f and concentra- 
tions of air and products can be deciphered. The temperature contours shown on 
the bottom panel of Figure 6.22 are similar to those of Y. This is not surprising 
because although T is not a conserved property, enthalpy h = C, T + wn He, like 
Y, is conserved and og, ~ 0 over a greater part of the domain. The temperatures, 
as expected, are high in the primary zone and in the region behind the fuel injection 
slot, but the temperature profile is not at all uniform in the exit section. Combustion 
chamber designers desire a high uniformity oftemperature in the exit section to safe- 
guard the operation of the turbine downstream. Such a uniformity is often achieved 
by nonaxisymmetric narrowing of the exit section. However, accounting for this 
feature will make the flow three dimensional and hence is not considered here. 

It must be mentioned that combustion chamber flows are extensively investi- 
gated through CFD for achieving better profiling of the casing, for determining 
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Figure 6.22. Scalar variables for a gas-turbine combustion chamber. 


geometry of injection holes to achieve high levels of mixing, for determining exact 
location of injection ports to minimize NO, formation, to achieve uniformity of 
exit temperatures, and to take account of liquid-fuel injection from burners and 
consequent fuel breakup into droplets. 


Laminar Natural Convection in an Eccentric Annulus 

Kuehn and Goldstein [37] measured heat transfer in horizontal eccentric cylinders 
(radius ratio Ro/ Ri = 2) containing nitrogen (Pr = 0.706). The inner cylinder is 
maintained hot at temperature Tp and the outer cylinder is maintained at colder 
temperature 7. The positive vertical eccentricity €/L = 0.652, where L = Ro 一 
Ri. This problem has been computed by employing curvilinear grids by Karki and 
Patankar [32] and Ray and Date [58] among many others. Here, the problem is 
computed employing triangular (1,340 cells) as well as quadrilateral (1,320 cells) 
meshes as shown in Figure 6.23. The symmetry about the vertical axis is exploited. 
Corresponding to experimental conditions, the Rayleigh number Ra = g В (Th — 
T.)L? ע)/‎ a) = 4.8 x 104 is chosen. At this value of Ra, the flow remains laminar 
in all regions of the cavity between the cylinders. 
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Figure 6.23. Unstructured meshes for natural convection in an eccentric annulus. 


In [37], the experimental data are plotted in the form of a local conductivity 
ratio Keq, which is defined as 








w,i (0) Ri Ro 
qw, (8) In Fs. Kao (0) = 


210 Ө Ro Ro 
dwo(8)Re ү Ro (6.145) 
天 (站 一 To) К 


Keai (0) = 
ы@) א‎ 


where 0 = 0 corresponds to the top of the cylinders and 0 = 180 refers to the bot- 
tom. The heat fluxes at the inner (9, :) and outer (д) cylinders are the output 
of the computed solution. Figure 6.24 shows a comparison of predicted and exper- 
imental (open symbols) data. At the inner hot cylinder, the computed data from 
the triangular mesh (solid lines) are in superior agreement with the experimental 
data than those obtained from the quadrilateral mesh (dotted lines). The reverse, 
however, is the case at the outer cold cylinder. The prediction of peak Keq,o at 
small angles (i.e., near the top) is in poor agreement with experimental data on 
both meshes. The cause of this discrepancy between predictions on the two meshes 
can be attributed to the small difference in the predicted recirculating flow struc- 
ture (see Figure 6.25) near the top. This difference arises because, compared to 
the quadrilateral mesh, there are very few cells in the triangular mesh in the top 
region (see Figure 6.23). Also, the orientations of cell faces with respect to the local 
direction ofthe total velocity vector on the two meshes are different. Thus, although 
the UDS is employed in the calculations on both meshes, false-diffusion errors can 
be different. The effect of flow angle in causing false diffusion was discussed in 
Chapter 5. The disagreement with experimental data may be due to inadequate cor- 
respondence between experimentally and numerically realised boundary conditions 
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Figure 6.24. Keq versus 0 for natural convection in an eccentric annulus. 


in this region. It must be mentioned, however, that the results with quadrilateral 
meshes compare extremely favourably with previous curvilinear grid predictions 
[32, 58]. It is for this reason that many CFD analysts prefer to use quadrilateral 
elements near curved surfaces while still employing triangular elements away 
from such surfaces. Thus, they prefer to use mixed elements for the domain as 
a whole. 

Figure 6.25 shows the vector plots on the two meshes. It is seen that there is 
a strong upward flow near the hot inner cylinder where density is lower. Mass 
conservation, however, requires that circulation be set up with a downwards flow 
near the outer cylinder. There is, however, a region of weak contrarotating circulation 


TRIANGULAR QUADRILATERAL 


Figure 6.25. Vector plots for natural 
convection in an eccentric annulus. 
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Figure 6.26. Temperature contours (range: 0-1; interval: 0.05) for natural convection in an eccentric 
annulus. 





near the top of the cylinders and the region near the bottom is seen to be almost 
stagnant. Figure 6.26 shows the predicted isotherms on the two meshes. They 
are nearly identical. These isotherms corroborate the interferograms measured by 
Kuehn and Goldstein [37]. Finally, the angularly integrated average value of K eq 
must be identical (so that overall heat balanced is checked) at both inner and outer 
surfaces of the cylinders. This value was computed at 2.68 on the quadrilateral 
mesh and at 2.79 on the triangular mesh. 


2D Plane Convergent-Divergent Nozzle 

Figure 6.27 shows a convergent-divergent plane nozzle whose width in the x3 
direction is large so that the flow may be considered 2D. The bottom bound- 
ary represents the axis (centerline) of the nozzle whereas the top boundary is a 
wall. The flow enters the left boundary and leaves through the right boundary. 
The total length Z of the nozzle is 11.56 cm and the throat is midway. The half- 
heights of the nozzle at entry, throat, and exit are 3.52 cm, 1.37 cm, and 2.46 cm, 
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Figure 6.27. 2D plane convergent-divergent nozzle. 
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Figure 6.28. Variation of pressure and mach number in the nozzle. 


respectively. The inlet Mach number is Mi, = 0.232 and the exit static pressure 
is p / po = 0.1135, where وم‎ is the stagnation pressure. The stagnation enthalpy 
is assumed constant. For these specifications, experimental data are available [45]. 
This flow has been computed by Karki and Patankar [31] using curvilinear grids 
and the UDS scheme with u = 0 (i.e., Euler equations are solved). Here, the flow 
is computed using an unstructured mesh and the TVD scheme (Lin—Lin scheme, 
see Chapter 3) again with u = 0. At the inflow plane, since Min is known, vin, 
Tin, and pin are specified using standard isentropic relationships [28]. At the exit 
plane, except for pressure (which is fixed), all other variables are extrapolated from 
the near-boundary node values. At the upper wall, a tangency condition is applied. 
This condition is the same as the symmetry condition. At the axis, the symmetry 
condition is again applied. The pressure distribution is determined by discretising a 
compressible flow version of the total pressure-correction equation (see exercise 9 
in Chapter 5). For velocities, equations for ® = u1, u2 are solved and temperature is 
recovered from the definition of stagnation enthalpy. Finally, density is determined 
using the equation of state p = م‎ Rs T. Computations are performed using 570 
elements as shown in Figure 6.27. 

The implementation of the TVD scheme on an unstructured mesh needs expla- 
nation. As mentioned in Chapter 3, the TVD scheme requires four nodes straddling 
a cell face. Thus, in addition to fictitious nodes Р» and E>, a node W, is selected 
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Figure 6.29. Mach number contours (range: 0.2-2.0, interval: 0.1) for a plane nozzle. 





to the left of P? and a node ЕЕ» is selected to the right of node E2. The locations of 
these nodes are such that /,_p, = Гр, уу, and Ile_E, = Ig, gg, where | is the length 
measured along the normal to the cell face (see Figure 6.11). Now, it is easy to 
work out the algebra of the TVD scheme in which Фуу, = Фр +/p_w, V Фр and 
Фев, = Фк + ЇЕ ge, V Фе. 

Figure 6.28 shows the predicted variations of pressure (dashed line) and Mach 
numbers (solid line) at the upper wall and the centerline. The experimental data 
(open circles) for pressure have been read from a figure in [31]. It is seen that 
the agreement between experiment and predictions is satisfactory. Note that the 
predicted Mach number at the upper wall passes through M — 1 exactly at the throat 
(X/L — 0.5) and reaches a supersonic state M — 2.01 at exit. At the centerline, 
however, the M — 1 location is downstream of the throat. Computations of this 
type can be used to design a convergent-divergent nozzle to obtain a desired exit 
Mach number. Finally, Figure 6.29 shows the 1so-Mach contours. Notice that the 
iso-Mach lines are slanted. 


6.5 Closure 


In this chapter, procedures for solution of transport equations on curvilinear and 
unstructured meshes have been described. By way of a closure, it will be useful to 
note a few important points. 


1. Both procedures require special effort to generate curvilinear or unstructured 
grids. Some methods for grid generation are introduced in Chapter 8. 

2. On curvilinear grids, the familiar (/, J) structure of Cartesian grids remains 
available. This permits adoption of the fast converging ADI method (as well as 
some others discussed in Chapter 9) for solution of discretised equations. 

3. On unstructured grids, owing to lack of a regular node-addressing structure, 
a simple point-by-point GS method must be adopted for solution. It is well 
known that this method is slow to converge, but the convergence rate can be 
enhanced by adopting fast matrix-inversion techniques such as CG or GMRES. 


207 


208 2D CONVECTION - COMPLEX DOMAINS 


TETRAHEDRAL ELEMENT PENTAHEDRAL ELEMENT 
Figure 6.30. Some 3D polyhedral cells. 


These techniques for sparse matrices become productive when the number of 
elements is large. 

4. Itmay surprise the reader to note that the unstructured grid procedure is the most 
general. Since the procedure can handle any polygonal cells (in two dimensions), 
the Cartesian and curvilinear grids are already included. In the latter cases, 
however, the advantages of an (/, J) structure must be sacrificed. 

5. The procedure for unstructured grids developed in this chapter can be straight- 
forwardly extended to 3D polyhedral cells (see Figure 6.30). The only difference 
in three dimensions is that all evaluations with i = 1, 2 must now be carried 
out over i = 1,2, and 3. By way of illustration, consider the line structure at 
the triangular cell face of a tetrahedral cell shown in Figure 6.31(a). Two lines 


₪ 





a) LINE STRUCTURE NEAR А CELL FACE b) CELL FACE CONTROL VOLUME 


Figure 6.31. Construction at the polygonal cell face. 


EXERCISES 


normal to the cell face are drawn through c and e. Now, imagine a plane through 
P parallel to the cell face. This plane will orthogonally intersect the two nor- 
mals at P, and P5. A similar face-parallel plane through E will intersect the 
two normals at E, and E>. Necessary evaluations of face-normal transport can 
now be carried out along the line P? — c Е. Similarly, the construction of a 
control volume at the cell face is shown in Figure 6.31(b) when the cell face is 
triangular. To evaluate £1, while direction £; is along PE, directions £ and ёз 
may be chosen along any two sides of the triangle rst with origin at r, s, or, t. The 
actual directions are determined by requiring that Jacobian J be positive. Simi- 
larly, to affect vector boundary conditions, two tangent vectors f and f? must be 
defined at the boundary cell face. Out of these, f, (say) may be chosen along PP; 
and direction of № can be determined using the direction of the normal to the 
boundary cell face so as to form an orthogonal frame f1, 5, л. The reader may 
find these figures useful for developing a 3D unstructured grid procedure [18]. 
Because of its generality, commercial codes are increasingly adopting unstruc- 
tured grids. Although generality is welcome, the codes must rely heavily on 
polyhedral mesh generators as well as on creation of special routines for pro- 
cessing of computed results. Such postprocessors typically create contour, vec- 
tor, and/or surface plots. For comparison of computed results with experimental 
data, however, one often needs to resort to interpolations. The reader will ap- 
preciate this difficulty because whereas most detailed measurements in a flow 
are carried out along a single straight line at a time, the grid nodes generated by 
packages such as ANSYS may not fall on a single line (in two dimensions) or 
even in a single plane (in three dimensions). 

Despite the above-mentioned difficulty, unstructured grid codes are most versa- 
tile and, therefore, suitable for complex domains encountered in industrial and 
environmental applications. 


EXERCISES 


. Derive expressions for В! (i = 1,2, Запау = 1, 2, 3) fora3D curvilinear grid. 


. Using Equations 6.24 and 6.27, express d А; and dV for a 3D curvilinear grid. 


3. Starting with the p' equation in Cartesian coordinates (see Chapter 5), derive 


NDA nh AR 


Equation 6.39. Identify the neglected terms in Equation 6.39 and explain how 
the effect of these terms can be recovered in a predictor—corrector fashion. 


. Analogous to Equation 6.42, derive an expression for ру, p- 

. Derive Equations 6.91, 6.92, and 6.93. 

. Derive Equation 6.113. 

. Using Equations 6.121 and 6.122, derive explicit symmetry boundary condi- 


tions for ив and из в. 
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3 2 Figure 6.32. Neighbouring cells of an unstructured mesh. 


. Using Equations 6.125 and 6.126, derive explicit exit boundary conditions for 


итв апа Uu» p. 


. A boundary receives radiant influx Fg = eo(T4 — Т3). Derive expressions for 


Su and Sp for the node adjacent to this boundary and evaluate 75. 


. Derive an exact expression for А P}, by control-volume discretisation over cell- 


face control volume 04--02-03--ן0‎ shown in Figure 6.13. 


. Show that x» в, — x2,p, = | bm Bi (х. = xi p)l B2/ A2. 
. Verify Equations 6.139 and 6.140 in the evaluation of p,, p. 


. Starting with Equation 6.62, derive an expression for total convective-diffusive 


transport at the cell face of a tetrahedral element. 


In Exercise 13, ifthe cell face were a boundary face, how would you determine 
the tangent vector f if f, is along PP5? 


Carry out discretisation of convection terms using a TVD scheme on an un- 
structured mesh. 


Consider node P surrounded by nodes Mj, М», апа М; of an unstructured 
mesh shown in Figure 6.32. Each element is a perfect equilateral triangle (each 
side 1 cm). Table 6.2 gives coordinates of vertices surrounding these nodes. 
In a particular problem, the fluid properties (p = 1.2 kg/m? and viscosity и = 
15 x 1075N-s/m?) are assumed constant so that the equations for flow and 
energy transfer are decoupled. Steady state prevails. The converged velocity 
distributions (u and v) are shown in Table 6.3. 

Now, the energy equation is being solved and the prevailing temperatures 
at nodes neighbouring P are as shown in Table 6.3. Take Г! = /Pr with 
Pr = 0.7. The source term in the energy equation 1s zero. The convection 


Table 6.2: Coordinates of vertices. 








1 2 3 4 5 6 





(ст) 0.5 1.0 0.0 0.5 1.5 —0.5‏ א 
y(em) 0.866 0.0 0.0 —0.866 6 0.866‏ 
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Table 6.3: Current distribution of u, v, and T. 








o 


P М, M2 M3 





u (m/s) 1.1 2.1 —0.3 —0.8 
о (m/s) —0.8 —].0 —].5 一 0.8 
Т (°С) 7 65 80 72 





17. 


18. 


terms are discretised using UDS. The equation is being solved with от = 1. 
The objective of this problem is to determine 7p. 

Tabulate intermediate calculations (in consistent units) to your answer in the 

form of Table 6.4 and, hence, determine 7p. Does 7p weigh heavily in favour 
of Tw? If yes, explain why. 
An analyst computes flow over a cylinder placed between two parallel plates as 
shown in Figure 5.28 using an unstructured mesh. The objective is to predict 
the drag coefficient (Cp) ofthe cylinder as a function of Reynolds number. The 
definition of Cp is 


₪ Fores T Ете 
р == UA жо. жүй up 
0.5002 A 
where Fires and Ffric are net pressure and frictional forces, respectively, acting 
on the cylinder in the negative x, direction, U, is the uniform axial velocity at 


the channel entrance, and the cylinder projected area 4 — D x 1. 
After solving for the flow, the analyst evaluates the forces as 


Fores —2x У (ps Г 
Кв 


(uy + Auy)ply, + (u2 + Auz)p ls, 


Fric = 一 2 х 25 H 
Kg Гьв n qum 


where pj, is the average pressure at the channel entrance and KB are total 
number of cells near the cylinder boundary (see Figure 6.33). Examine whether 
the analyst's evaluations are correct. 


1 
Bi. 





In Exercise 17, heat transfer from the cylinder is considered with a con- 
stant wall temperature boundary condition. How will you evaluate local and 


Table 6.4: Intermediate tabulation - energy equation. 








Facek 67 82 fm Ак leg Ск fk dx АЕ, 





1 
2 
3 





212 





2D CONVECTION - COMPLEX DOMAINS 


Cylinder 
Boundary 


Figure 6.33. Cells near the cylinder boundary. 
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averaged heat transfer coefficients at the cylinder surface after a converged 
temperature solution is available? The temperature of the fluid entering the 
channel is Tin whereas the channel walls are maintained at Twe. Write the ex- 
pressions in discretised form. The heat transfer coefficient is defined as Л = 
dw/(Tw — Tef). What should be the relevant reference temperature Tief for this 
problem? 


In the study of boundary layer development in the presence of favourable pres- 
sure gradients, an apparatus shown in Figure 6.34 is constructed. It is then 
assumed that in the presence of a sloping wall, the local free-stream velocity 
varies as U(x) = U,(1 + x/L). An analyst desires to verify this assumption 
by carrying out computation ofthe flow from entry to exit as an elliptic flow and 
allowing for the presence of the plate of thickness 7 . The following information 
is given: U, = 1.8 m/s, L = 1 m, Н = 0.7 m, and air is at 30°С and 1 atm. 


(a) Writethe equations and the boundary conditions governing the flow. Hence, 
identify the relevant Ps assuming turbulent air flow. 


(b) Which turbulence model will you use? HRE or LRE? 


(c) Which type of grid will you prefer? Curvilinear or unstructured? 


Sloping Wall 
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Figure 6.34. Boundary layer development in a wind tunnel. 


EXERCISES 213 





Symmetry Plane 














= 4а 4 
Symmetry Plane 


a) MOON SHAPED DUCT b) CORDOID DUCT 
Figure 6.35. Complex ducts. 


20. Consider fully developed laminar flow through the two complex ducts shown 
in Figure 6.35. The flow is in the хз direction. The figure shows half cross 
sections in both cases with symmetry planes parallel to the x, axis. It is desired 
to predict f x Re for the ducts. The geometric details are as follows: 


Moon-shaped duct: a = b = 3 units and © = 60°, 
Cordoid duct: r = 2a (1 + cos Ф), a = 2 units, 0 > Ф > л. 


Whattype of grid will you prefer for computation? Curvilinear or unstructured? 
Draw a hand sketch to explain the reasons for your choice. 
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7 Phase Change 


7.1 Introduction 


There is hardly a product that, during its manufacture, does not undergo a process of 
melting and solidification. Engineering processes such as casting, welding, surface 
hardening or alloying, and crystallisation involve phase change. The processes of 
freezing and thawing are of interest in processing of foods. Phase-change materials 
(PCMs) are used in energy storage devices that enable storage and retrieval of 
energy at nearly constant temperature. 

The phenomenon of melting or solidification is brought about by a process 
of latent heat (X) transfer at the interface between solid and liquid phases. For a 
pure substance, throughout this process, the temperature Tm (melting point) of the 
interface remains constant whereas in the liquid and solid phases, the temperatures 
vary with time. Both ג‎ and Tm are properties of a pure substance. Within each of 
the single phases, heat transfer is essentially governed by a process of unsteady heat 
conduction, although, under certain circumstances, convection may also be present 
in the liquid phase under the action of body (buoyancy, for example) or surface 
(surface tension) forces. 

There are two approaches to solving phase-change problems: 


1. the variable domain formulation and 
2. the fixed domain (or fixed-grid) formulation. 


In the first approach, which has several variants, two energy equations are solved 
in the solid and the liquid phases with temperatures 7; and Ti, respectively, as 
dependent variables. In addition to the initial (1.e., at = 0) and the domain bound- 
ary conditions, the following interface conditions are also invoked to match the 
temperatures of the two phases: 





C= ege (7.1) 
ӘТ, 07 
ЕЕ equ. (7.2) 
дп |; дп 5 








7.1 INTRODUCTION 


where л is normal to the interface and V; is the instantaneous velocity of the 
interface in the direction of the normal. In a finite domain, the solid and liquid 
regions thus enlarge or contract as time progresses. Hence, we use the designation 
variable domain formulation. The interface, of course, moves through the domain 
and, at a given instant, may assume arbitrary shape. The arbitrariness may arise 
from the boundary shape, boundary conditions, or the presence of convection in 
the liquid phase. The variable domain formulation thus requires tracking of the 
interface location at every instant of time to effect condition (7.2). In complex 
three-dimensional domains, such tracking can turn out to be very cumbersome. 

In this chapter, only the fixed domain formulation will be considered. This 
formulation treats enthalpy h (sensible + latent heat) rather than temperature Т as 
the main dependent variable in the energy equation. In the absence of internal heat 
generation, this equation can be written as 


Q(ph) a д ( 
-h) = (К |, 7.3 
01 T 0x; (o и) ) Ox; Ox; ( ) 





where the velocity u; may be finite only in the liquid phase and zero in the solid 
phase. The equation is applicable to both solid and liquid phases and, therefore, 
to the entire domain including the interface. Thus, the interface condition (7.2) is 
already satisfied. Equation 7.3, however, contains two dependent variables (Л and Т) 
and a set of relations (known as the equations of state) between them must be 
specified. With this specification, the equation can be readily adapted to compu- 
tations on a fixed grid through which the interface moves with time. Thus, the 
phase-change problems too can be computed with a generalised computer code. 
This fixed-grid formulation is also referred to as the enthalpy formulation in the 
literature. 

There are a variety of phase-change problems. For example, in casting, only the 
total solidification time may be of interest; the domain is finite. In such problems, 
the interface need not be explicitly tracked. In contrast, in problems such as welding 
and surface hardening, it is important to identify the heat-affected zone and interface 
tracking is essential. In impure materials and alloys, latent heat transfer takes place 
over a range of temperatures (Tm — € < T > Tm + €) that demarcate what is known 
as the mushy zone. The properties of the mushy zone, however, must be known or 
modelled. There are other problems in which the thermo-physical properties of 
the two phases not only are different (ice water, for example) but are nonlinear 
functions of temperature, concentration, velocity gradients (in liquid phase), and/or 
local porosities. Equation 7.3 can readily capture such a variety. 

The problem of solving Equation 7.3 through discretised equations is not 
straightforward; therefore, in the next two sections, only 1D problems will be con- 
sidered to explain the main ideas. This will provide sufficient grounding to the 
reader to understand extensions to multidimensions through indicated references. 
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Figure 7.1. 1D phase-change 


T | N problem. 
І 


INTERFACE 
X(t) 











7.2 1D Problems for Pure Substances 


7.2.1 Exact Solution 


It is important to note that there are very few exact solutions to phase-change 
problems even in one dimension. To appreciate the nature of the solution, consider 
the problem shown in Figure 7.1. An initially (t = 0) superheated liquid (Tsup > Tm) 
in a semi-infinite domain is subjected to temperature Tw (< Tm) at x = 0 and this 
temperature is maintained for all times t > 0. Solidification commences instantly 
and the interface moves to the right. The instantaneous location of the interface 
Xi (2) is shown in the figure. The task is to predict velocity d X;(t)/d t as a function 
of time and the temperature distributions in each phase as a function of x and t. 
The governing equation for this problem will be 


a(ph) a (« =) -/ 





dt Ox Ox 


with T(x, 0) = Tsup, T(0, t) = Tw, and T (co, t) = Tsup. The liquid is of course 
stagnant. The exact solution for this problem was developed by von Neumann [23]. 
The solutions for the solid and liquid phases read as 


Ts — Im _ | erf(x /A/4a,t) 


Т, מו‎ ertf(Xi/ Viat ©з) 
-Tn _, erfc (x / / Aoi f) 5 





Tsup — Tm ~~ erfc(Xj/./4q 7 


where ₪ is the thermal diffusivity and suffixes s and | refer to solid and liquid phases, 
respectively. Now, since these solutions hold for all values of Xi, by inspection, 


7.2 1D PROBLEMS FOR РИНЕ SUBSTANCES 


we must have 
X; x vt Or X; = C vt, (7.7) 


where C can be determined from the interface condition (7.2). The transcendental 
equation for determination of C thus becomes 








prc | Tm = Tw 
2 erf(C//4a,) EL = exp (7 С'/4о,) 
tin Тыр exp (— C?/4a)). (7.8) 
erfc (C/ (نه 4ل‎ AG 


This transcendental equation shows that C = C (Tm — Tw, Tm — Tip, Ks, Ki, 
ds, ол). Thus, C will be different for each initial and boundary condition and for each 
specification of physical properties. The value of C must be iteratively determined 
to calculate d X; (1)/d t from Equation 7.7 and hence to calculate the temperature as 
a function of x and 1 from Equations 7.5 and 7.6. It can be shown that the system 15 
governed by a dimensionless number, called the Stefan number, which is defined as 


Cps (Т, т Т, w) 
кс эшш 
The larger the value of 57, the faster is the interface movement. A further point to 
note is that, although the temperature profiles show discontinuity at the interface, 
they are smooth within each phase and the variation of T with t at any x is also 
continuous and smooth. 


St= (7.9) 


7.2.2 Simple Numerical Solution 


It might appear that it is a straightforward matter to discretise Equation 7.4 to ob- 
tain a numerical solution. However, there is a difficulty associated with predicting 
continuous temperature histories when a numerical solution is obtained. To ap- 
preciate the difficulty, we assume uniform and equal properties for both phases 
(Le., رم = وم‎ = р, Cys = Cy = Cp, and К, = Ку = K). Thus, Equation 7.4 can be 
written as 


88 |90 
— 7.10 
дт ӘХ? ee) 
where 
Айр. ox | 
Ф = EU (dimensionless enthalpy), (7.11) 
Cy (T — Tm : : 
0 = mE (dimensionless temperature), (7.12) 
01 : : Р 
T= Т? (dimensionless time), (7.13) 
Х = T (dimensionless length). (7.14) 
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Table 7.1: Equations of state. 


PHASE CHANGE 











State T — f(h) h= f(T) 

Solid T =h/C, h=C,T 
forh <h, for T > Ty 

Liquid T = (h — А)/С, h=C,T+ì 
forh > h, for 7 > Т 

Interface T = Ta h = C, Tm + Aps (0) 
for hs < h < hı [^^  (dhy/dt)dt = ג‎ 





In these equations, L is the domain length where the boundary condition corre- 
sponding to x = oo is specified and hs = C, Tm is the solidus enthalpy. There are 
two ways to connect ₪ to T (or Ф (о Ө) via the equations of state, as shown in 
Table 7.1 and Figure 7.2. In Table 7.1, ^; = C, Tm + ג‎ is the liquidus enthalpy and 
hy, (t) is the psuedo-enthalpy in whose definition At is not a priori known. 

When = f(T)relationships are used, clearly one would require a procedure for 
determining the integral constraint at the interface. Such a procedure is developed 
in [85]. We shall, however, consider T = f(A) relationships so that 


0 ع‎ Ф for ® <0 (solid), (7.15) 
6=0 for 0 > © >1 (interface), (7.16) 
0—0-1 for Ф > 1 (liquid). (7.17) 


Now, assuming the IOCV method and using a uniform grid, it is a simple matter 
to show that 





^ 
ph = 22 (n — 26/14 ei) + 05, (7.18) 


2 AX? 1 
where superscript n is dropped for convenience, but superscript / + 1 is retained 
to indicate that Equation 7.18 must be solved iteratively to satisfy the equations of 








hy 
h 入 
Figure 7.2. Equation of state for a pure 
h, substance. 
rs 
SOLID LIQUID 
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state. The overall calculation procedure will be as follows: 


І. At т = 0, specify initial condition 6? for j = 1 to N. Hence, evaluate $5. Set 
Ө; 一 05. 

2. Choose Ar to begin a new step. 

Solve Equation 7.18 once using the GS method to obtain the o! distribution. 

. Determine 6 using equations of state (7.15) to (7.17) and return to step 3 to 

carry out the next iteration. 

5. After a few iterations, the change in qi between successive iterations will be 
small and convergence is obtained. 

6. Set ФУ = 6; and return to step 2 to execute the next time step. 


Bow 


Problem 1 
To appreciate the nature of the numerical solution, consider a problem with the 
following specifications: 


p = 1 kg/m), C, = 2.5 MJ/kg-K, K = 2W/m-K, 
A = 100 MJ/kg, Tm = 0°C, L = Im, 
T(x,0) = Tay = 200, and Ty = T(0,t) =—10°C 


For this problem St = 0.25 and, as evaluated from Equation 7.8, C = 5.767 x 
107^. A numerical solution is executed with initial conditions 0 (т = 0) = 0.05 
and Ф(т = 0) = 1.05. The boundary condition is Ө(Х = 0) = —0.25. The time 
step is determined from Ac/AX? = 0.2 and the computations are carried out 
till c = 1.6 (or nearly 23 days). Two grid spacings are considered: AX = 0.2 
(N = 7) and AX = 0.0769 (N = 15). At each time step, a converged solution 
15 obtained in 5-11 iterations. The exact and the numerical solutions for temper- 
ature at x — 0.5 m are plotted in Figure 7.3 as a function of time. The figure shows 
a wavy temperature history. The waviness, however, decreases with refinement 
of the grid size. When AX is reduced still further so that N — 51 (say), the re- 
sults (not shown) indicate that the exact and the numerical solutions nearly co- 
incide. That is, the essentially wavy solution now appears smooth, albeit at the 
expense of significantly increased computer time. A few comments are therefore in 
order: 


1. The numerical procedure is very simple and can be easily extended to multidi- 
mensional problems. However, to obtain non-wavy solutions, an extremely fine 
mesh size is required. This can be very uneconomical. 

2. Why does waviness occur? This can be appreciated from Figure 7.4, where a 
phase-change node / is considered. When the interface resides within the control 
volume surrounding node j (so that 0 < Ф; < 1), 0; = 0 (see Equation 7.16). 
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T (x = 0.5 m) 











1 | | | | | | | 
5 10 15 20 
Figure 7.3. Solution for Ат/АХ? = 0.2. 





Thus, throughout the period of interface transit through the control volume, the 
nodal temperature at the phase-change node remains stationary at 0; = 0. As 
a result, the temperature history demonstrates a wavy pattern. However, when 
Ax — 0 (ог grid spacing is reduced) the transit time itself is reduced and hence 
the predicted history appears smooth. 

3. The calculation procedure, of course, necessitates a point-by-point GS iteration 
method for solution of Equation 7.18. This is because bookkeeping 1s required 
in step 4 of the procedure for each node to identify whether the node is in solid 
(Ф; < 0), in liquid (Ф; > 1), or undergoing phase change (0 > Ф; > 1). This 
bookkeeping can again be expensive in terms of computer time. It also prevents 
use of a line-by-line procedure such as the TDMA. 





SOLID LIQUID 


ј+1 Figure 7.4. Typical phase-change node. 
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4. The interface location can be identified from the location of 0 — 0, but, as 
already explained, this will again predict a wavy interface history. Instead, one 
may use variable Ф to predict the interface history. This is because Ф ; is nothing 
but the /iquid fraction of the control volume surrounding phase-change node 
j. Thus, at any time instant, one may simply add AX for all nodes for which 
Ф; < 0 (i.e., solid nodes) and further add (1 — ®;) AX for the node for which 
0 > Ф; > landignoreall nodes for which Ф, > 1. The sum will readily predict 
the instantaneous value of X; and this prediction will appear smooth but not 
accurate on a coarse grid. This alternative procedure will again require book- 
keeping. 


These comments indicate that the simple procedure needs refinement in terms 
of both economy and convenience. 


7.2.3 Numerical Solution Using TDMA 


To eliminate the bookkeeping requirements, the 0 ~ Ф relations (7.15) to (7.17) 
must be generalized [11] by writing 


= Ф + Ф’, (7.19) 
where 


= $l- 9-9 )7.20( 


Equation 7.20 ensures that @' = 0 in solid (Ф > 0), Ф = —Ф during phase change 
(0 > Ф > 1), and Ф = -1 in liquid (Ф > 1). Using Equation 7.19, we can reex- 
press Equation 7.10 as 
0o o 5 בא‎ 
дт ӘХ? ӘХ? 





(7.21) 


and the discretised version will read аз! 








4 Ат 
АХ? 


where @' values lag behind Ф values by one iteration. Thus, in step 4 of the simple 
numerical procedure described in the previous subsection, Ф” (rather than 0;) are 
evaluated using Equation 7.20 and the bookkeeping requirement 15 eliminated. The 


(Ф,—2Ф,+Ф)_)+Ф%, (7.22) 


1 [tis assumed that the reader will be able to make necessary changes to the discretised equation for 
j — 2and j 2 N — 1 nodes to account for any type of boundary condition. 
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introduction of the variable Ф’ yields two further advantages: 


1. The terms containing Ф” and ®° can be treated as sources. Thus, at the current 
iteration level, Equation 7.22 can be solved by TDMA. This can achieve con- 
siderable economy in computer time. For example, for the problem considered 
in the previous subsection, with N — 51, the TDMA solution turns out to be 
nearly 2.5 times faster than the GS solution. 

2. It is easy to recognize that at each time step, when a converged solution is 
obtained, X; (т) can be estimated from the simple formula 


N-1 
ל = ג‎ )1 + BAX. (7.23) 
j=2 


This is because (1 + Ф”) represents the solid fraction for each node /. Again, 
the bookkeeping requirement is eliminated. 


Although useful for obtaining faster solutions on fine grids, the introduction 
of the Ф’ variable does not eliminate the problem of wavy temperature histories 
on coarse grids. This 15 because the replacement indicated in Equation 7.19 still 
renders 0 = 0 at the phase-change node (0 > Ф; < 1). In the next subsection, it 
will be shown that accurate solutions can be obtained even on coarser grids while 
still employing the TDMA procedure. Thus, we seek an economic solution that 
combines the beneficial effects of computations at fewer nodes with the speed of 
the line-by-line procedure. 


7.2.4 Accurate Solutions on a Coarse Grid 


To prevent © from remaining stationary at zero at the phase-change node, 
Equation 7.19 is rewritten as 


6 = Ф + Ф”, (7.24) 
where 
Ф” = Ф + Ay, (7.25) 


with, 05, denoting the nodal value of 0 at the phase-change node 0 > Ф; < 1. Note 
that Ө = 0 at all single phase nodes. Making these substitutions in Equation 7.18 
leads to 





АХ? J АХ? J= 


AT H Hn n 0 
+ קר‎ 9 -200+60 (+6 (7.26) 


(1+2 Ат ) ol ST (el кан) 
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This equation is the same as Equation 7.22 except that Ф’ is replaced by Ф” and the 
latter will again lag behind Ф by one iteration. Equation 7.24 1s therefore amenable 
to solution by TDMA. 

To make further progress, a procedure for evaluating Ф” or, in effect, Ope must be 
set out since Ф’ can be evaluated from its definition (7.20). Thus, consider Figure 7.4 
again and define 


AX; — Xi — X;, (7.27) 
1 


where X; is the location of the interface where 0 is truly zero and X ; is the coordinate 
of node j. At the time instant considered in the figure, therefore, AX; is positive 
and we may evaluate 0pc, ; by linear interpolation as 


Өс = са Ө (7.28) 
0 АЖ БАЖ ГТ | 
At another earlier time instant, A.X; may be negative (X; > X;) and we may write 
Өл = Өз. (7.29) 
P АХ + AX | 7 


Note, however, that for both positive or negative values of A Xj 


AX, = Xi — Ху = (0.5 - Фу) AX = (0.5 + Ф, )AX (7.30) 





since Фрс, = =Ф ; at the phase-change node. Equations 7.28 and 7.29 therefore 
can be generalised to read as 
F 
Op, j = 5 [(4 + 141)0;-1 — )4 - 1400521]. (7.31) 
where 
0.5 qe... 
A= „Н (7.32) 
[0.5 + Фе | +1 
апа 
1+ Ф) Ф’ 
dot نشت‎ (7.33) 
(1— 0,96; 


In these equations, F — 0 at the single phase nodes (rendering 65, — 0) but 
F = | at the phase-change node as desired. Thus, the phase-change node tempera- 
ture can be evaluated without bookkeeping. Therefore, in step 4 of our calculation 
procedure, Ф? is also evaluated without bookkeeping. 

Problem 1 of Section 7.2.2 is now solved again for the coarse grid with N = 7 
(or AX = 0.2) for St = 0.25, and the predicted temperature history is shown in 
Figure 7.5. Now, even the coarse grid solution is nearly accurate. In the same figure, 
computations for St = 1 (C = 1.075 x 107°) and St = 3 (C = 1.6 x 107°) are 


also shown and the grids used are indicated in the figure. Again, smooth histories 
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0.0 1 1 1 | 1 1 1 1 | 1 1 1 1 | 1 1 1 1 | 1 1 1 


Figure 7.6. Solutions for Xi(t). 


are predicted that agree with the exact solution well. In each case, solutions are 
obtained with At/AX? = 2, which is 10 times larger than that used in Figure 7.3. 
Thus, inclusion of 8pc, ; permits the use of coarse grids and allows large time steps 
and yet yields accurate solutions. This finding is particularly important for multi- 
dimensional problems. Figure 7.6 shows the variation of X; (as calculated using 
Equation 7.23) with time. It is seen that as the Stefan number increases, the interface 
moves faster. Notice that for 51 = 1 and St = 3, the computations are carried on 
even after the complete domain 15 solidified; hence, the interface location appears 
to remain stationary at 1 m. 


7.3 1D Problems for Impure Substances 


In impure materials or alloys, phase change takes place over a range of temperatures 
T, > T > Тү where 7; and 7; may be termed as solidus and liquidus temperature, 
respectively. Here, we shall permit different properties of solid and liquid phases. 
The Л ~ T relation, therefore, may appear as shown in Figure 7.7. In this figure, 
the region (also called the mushy region) between T, and the fusion temperature Tm 
is shown blank because the A ~ T relation may take a variety of forms in different 
materials. 

The energy equation (7.4) will again be applicable. To account for different 
properties of the two phases, however, the following dimensionless variables 
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hi 
h 1 Figure 7.7. h~ T relation for an impure 
material. 
hs 
l 
SOLID | MUSH | LIQUID 
T, Tn 
are employed: 
А = һр; 
Ф = "m: hs = С» Ts, (7.34) 
С (Т — Т, 
AS. =). (7.35) 
2 
ot 
t= 72" (7.36) 
x 
X=-, 7.37 
7 (737) 
"e . К « С» 
كم‎ =S, К = CT = = )7.38( 
Ps К; С» 
Therefore, Equation 7.4 can be written as 
0(0 Ф 0 06 
ااه‎ = (7.39) 
дт ax ax 
and the equations of state will take the form 
02 for ® > 0, (7.40) 
Ө = (Ф) for 0 > © > 1 (7.41) 
7 
0 =m + ل‎ (8-1) for >l. (7.42) 





Cp 


For alloys, function (Ф) may take a variety of forms. For Al-4.596 Cu alloy, for 
example, Voller and Swaminathan [85] have used the following general relationship: 





0— 6 п 
Ф = | | for 0. > 6 > 6| (7.43) 
0, — Ө; 
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and 
Ф=1 for 0, > 0 > On, (7.44) 


where 0; < 6, > Om, and the values of these temperatures and n (0.2 to 0.5) are 
known. In another form, known as Schiel's equation, the relationship is given by 





0 —6, for 0 > © > Ф;, (7.45) 
0-0. 17? 

Ф = for Ф; > © > [1 (7.46) 
0 = Om 
Ф = 1 for 6 > 0 > On, (7.47) 


where В = (1 — у)! and y is the partition coefficient. The values of y, $,, and 6j 
are known. 
The discretised version of Equation 7.39 will read as 


ke ke‏ + א 
Ф‏ ® = مقي 
[ss TAX P—lAX) ТААЛ) “‏ 
* * 
е‏ 


+ (ү) جره -يه‎ (E) -op 
pp AX 
AT 

The trick now is to correctly interpret function f (®) so as to calculate 65, since 
®’ (see Equation 7.20) can be easily calculated from Ф. This will enable calculation 
of Ф” (see Equation 7.25). 














+ 





фо. (7.48) 


Problem 2 
To illustrate the procedure, consider a specific case of А1-4.5% Cu alloy for which 
the data are as follows and Schiel’s equation is used: 


K, = 200 W/m-K, Kı = 90 W/m-K, 
С» = 900 J/kg-K, Cj; = 1,100 J/kg-K, 
ps = pi = 2,800kg/m?, 
à = 3.9 x 10° J/kg, L = 0.5m, 
and 
T, = 821 K, П = 919K, Т, = 933K. 


The initial state is superheated Tin = 969 К and Ty (x = 0) = 573 K, with y = 
0.14 (or 6 = 1.163). 
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Figure 7.8. Schiel's function. 


Thus, solidification commences instantly and calculations can be executed with 
Gin = 0.341538, Pin = 1.10154, Ф; = —1, 
bw = w = —0.5723, 
0, == 0, ©, = 0.089, 
0 = 0.226154, Ф = 1.0, 
On = 0.258462, Bn = 


Figure 7.8 shows the Schiel’s function. We now specify 65. for the range 0 > 
Ф > 1 for which Ф’ = —Ф. 


0 > © > Ф;: In this range, 0; = 0 remains stationary. Therefore, we may 
employ Equation 7.31. 


s > © < Ф: In this range, from Equation 7.46, 
Apc, = Om + (6| — Om) Ф !/?. (7.49) 


0, > 6 > Om: In this range, Ф remains constant at 1. Therefore, the right-hand 
side of Equation 7.39 can be equated to zero. Therefore, the solution in discretised 
form is 


Е Op + К Ө 
Өре, = Box (7.50) 
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® > 1: Although this is a single-phase region, to account for property variation, 
we set 


Өрс,у = Om — (Ф — 1) ( — c) , (7.51) 
Си 

Thus, 66 is specified for the entire Ф > 0 range rather than being restricted to the 
0 « Ф < 1 range. Following Voller and Swaminathan [85], computations are car- 
ried out using Ax — 0.01 m (or N — 52) and At — 5 so that Ar — o, At/ Ax? — 
3.96825. Equation 7.48 is solved using ТОМА at each time step. It 15 found that 
a maximum of two iterations are required to reduce the residual in the equation to 
less than 1075. Figure 7.9(a) shows the time variation of the interface. In this case, 
the interface location is identified with Ф = 0 [see definition (7.34)]. The computed 
results are compared with the solution obtained by Voller [84] using the heat bal- 
ance integral method (HBIM) since exact solution is not available for this highly 
nonlinear case. The present computations show some waviness that is also observed 
in [85] where computations are carried out using the Л = f(T) relationship rather 
than the T — f(A) relationship used here. Figure 7.9(b) shows the temperature 
histories at a few values of x. The solutions demonstrate jaggedness (typical of a 
highly nonlinear 6—® relation) that is also observed by Chiu and Caldwell [6], who 
used what is called Broyden's method. 

Finally, we note that the method presented in this section can also be ex- 
tended to the case when phase change takes place at a unique temperature, that 
is, 0, = 6, = Om = 0. Because then, f(®) = 0 (see Equation 7.41) and one can 
readily adopt Equation 7.31 to evaluate 6pc. Similarly, the present method can also 
be extended to multidimensional phase-change problems. The only care required is 
in the evaluation of Ore because several nodes can undergo phase change simulta- 
neously. In Date [12, 13], the necessary considerations and the associated algebra 
are explained. 


EXERCISES 


1. Write a general computer program for solving transcendental equation (7.8) 
[63]. Hence, determine the value of C for the two materials and conditions 
given in Table 7.2. 


2. Modify Equation 7.22 for node j = 2, when the heat transfer coefficient h is 
specified at boundary x — 0. 


3. Show the validity of Equation 7.23 in a solidification problem. 


4. With respect to Figure 7.4, demonstrate the correctness of Equation 7.30 and 
hence of Equation 7.31. 


5. Show the correctness of Equation 7.51 for Ф > 1. 


EXERCISES 


Table 7.2: Properties for Exercise 1. 








p 


Cs Ca k k ^ Tu Т T 





2,180 1,549 1,549 049 0.49 1.37x10? 200 220 230 
2,800 900 1,100 200 90 39x10? 573 933 933 





6. In an energy storage device, a PCM 15 sandwiched between two streams of 


heat transfer fluid (HTF) as shown in Figure 7.10. The HTF flows at 200°C 
with heat transfer coefficient 300 W/m?-K. The PCM is initially in a sat- 
urated state (Tm = 220°C) and its thickness is 8 cm. Estimate the time for 
heat (sensible + latent) recovery and the quantity recovered. The PCM proper- 
ties are as follows: о = 2,180 kg/m?, Cp = 1,549 J/kg-K, К = 0.49 W/m-K, 
and A = 1.37 x 10° J/kg. 


. Consider solidification of a PCM contained in a spherical vessel of radius R. 


Initially, the PCM is at temperature 7i; = Tm. The vessel wall temperature is 
Ty > Tm and held constant with respect to time. Assuming only radial heat 
transfer, the applicable energy equation is 


4,908) _ д ב‎ | 
01 or or 





where A = 4z r?. 
(a) Nondimensionalise this equation assuming constant properties. 


(b) Discretise the equation and write a computer program to solve the discre- 
tised equations. Use of a nonuniform grid with closer spacings nearr — R 
andr = Oisdesirable. Take o = C; =k = à = 1, R = 1,апа Tm = бапа 
compute for Ту = —0.1, —1.0, and, 10.0. 

(c) Plot the variation of interface location R;/ R as a function of dimensionless 


time in each case and estimate total solidification time. Compare your 
results with those of [7]. 





. Repeat Exercise 7 for a superheated PCM so that Tin > Tm. Take Tw = —1.0 


and use three values of Ти: 0.1, 1, and 2. 


h s HTF 200°C 


PCM 8 ст 


h HTF 200°C 


Figure 7.10. Phase-Change Energy Storage Device — Exercise б. 
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9. Repeat Exercise 7 assuming that the convective heat transfer coefficient 2 and 
associated ambient temperature 74, < Tm are specified at r = R and Т, is 
unknown. Show that, in this problem, the interface movement is governed by 
two parameters: the Stefan number St = C, (Tm — 256( / ג‎ and the Biot number 
Bi = h R/ Kpcm. Assume Tẹ = —1 and Tm = 0 and compute for Bi = 5, 
and 10. Plot the variation of Т, and Ri with time in each case. 


8 Numerical Grid Generation 


8.1 Introduction 


As mentioned in Chapter 6, curvilinear grid generation for 2D domains involves 
specification of functions 


xı = xı (1, £2), x2 = x2 (1, 2), (8.1) 


where £i, & are curvilinear coordinates and x;, x2 are Cartesian coordinates. These 
two functions can be generated in two ways: (1) by algebraic specification or 
(2) by differential specification. 

Algebraic specification is typically employed in 1D problems but can also be 
employed in 2D problems when the domain is simple (Section 8.2). For complex do- 
mains, however, differential grid generation is preferred. In this type, functions (8.1) 
are generated by solving differential equations with dependent variables x; and x2. 
The differential equations can be of parabolic, hyperbolic, or elliptic type [81]. How- 
ever, we Shall consider the most commonly used elliptic grid generation technique 
(Sections 8.3 and 8.4) 

The unstructured meshes again can be generated in a variety of ways. Two types 
will be considered: (1) generation by exploiting structuredness and (2) automatic 
mesh generation (Section 8.5). 


8.2 Algebraic Grid Generation 


8.2.1 1D Domains 


The objective of grid generation is to locate nodes such that they are closely spaced 
in regions where the dependent variable Ф in the transport equations is expected to 
have steep gradients and sparsely spaced in regions where the gradients are small. 
This ensures that accurate solutions are economically obtained. 
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Figure 8.1. Effect of n on a 1D grid. 


Consider a 1D domain of length L with N nodes so that there are N — 2 control 
volumes. One may now specify either the node coordinates x(i) or the cell-face 
coordinates x,(i), where the latter occupies location of cell face w to the west of 
node P. Two useful algebraic formulas for node-coordinate determination are 








x0. [eet] 
eb | _ 
апа 
xi) , [, 1—1 2 
=I [ "zd (8.3) 


where n takes arbitrary positive value. For n = 1, these relationships are linear, 
implying uniform node spacing. According to relation (8.2), when n > 1, the 
grid is fine near x — 0 and becomes progressively coarser towards x — L [see 
Figure 8.1(a)]. When n « 1, however, the grid is coarse near x — 0 and becomes 
uniformly fine near x — L. Relation (8.3) is employed when these trends are to be 
reversed [see Figure 8.1(b)]. In either case, once the x coordinates are known, the 
cell-face coordinates x, can be determined by requiring that the cell face be midway 
between the adjacent nodes, as has been our preferred practice. Conversely, one can 
specify node coordinates x,(i) via formulas of this type and then determine the x 
coordinates. 


8.2.2 2D Domains 


In 2D domains, often the shape ofthe domain boundaries as well as the coordinates 
can be specified by algebraic equations. One such example is that of an eccentric 


8.3 DIFFERENTIAL GRID GENERATION 


Figure 8.2. Eccentric annulus. 





annulus shown in Figure 8.2. In this case, the grid coordinates can be generated 
from 


xı = R 0 хә = R sin6, (8.4) 





R* = —e sind + y Rẹ — (є cosy’, (8.5) 


where ה-‎ /2 < 0 x л/2, Ri < R < R*, and is eccentricity. When є = 0, a con- 
centric annulus is generated. Shah and London [66] have given results for fully 
developed laminar flow and heat transfer in several ducts of noncircular cross sec- 
tion. The domains of such ducts (sine, ellipsoid, cordoid, etc.) can be mapped by 
relationships of the type given here. 


8.3 Differential Grid Generation 


8.3.1 1D Domains 


In algebraic specification, the fineness of grid spacings could be controlled using 
formulas (8.2) and (8.3). This can also be done by solving a differential equation. 
To understand the main ideas, consider the differential conduction equation 


a 
N 
sj 


q” 
Hx E eg 8.6 
+ Е (8.6) 


a 
E 
N 
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Table 8.1: Solution to Equation 8.7. 











No. q” (x) T 

1 0 x 

2 a x [1 = (1 — x)] 

3 bx x[1- &a - x2] 

4 b(1— x) א‎ ]1- £(1- 58-2] 





with boundary conditions Т = 0 at x = 0 and T = 1 at x = 1. The solution to the 
equation is 


x x qg" 1 x q" 
r=- | 0 Tax] ++] 0 Tax) | x. (8.7) 
0 0 К 0 0 К 


nt 


This solution is now evaluated for different assumptions for the variation of q 
with x. The solutions are shown in Table 8.1 and Figure 8.3 with a — 2, b — 3, and 
conductivity k — 1 in all cases. Clearly, the variation of T is controlled by variation 





of g” with x. 
Now, to make Equation 8.6 a determinant of grid node locations, we simply 
interchange the roles of x and T. Thus, the solution for q” = bx, for example, is 
1.0 


0.8 


0.6 


0.2 














0.0 
0.00 0.25 0.50 X 0.75 1.00 


Figure 8.3. Effect of д” (x) function. 
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(с) 
Figure 8.4. Differential construction of a 2D curvilinear grid. 


taken as 
b 2 


By assigning different values to 7' in the specified range, we can get as many values 
of x (7) as desired. To generalise this idea, we may state that the appropriate equation 
for determination of node coordinates is 

d'E 

— = с(ё), 8.9 

=e) (8.9)‏ يو 
where с(&) is a stretching function to be specified by the analyst. To generate a‏ 
solution of the form shown in Equation 8.8, Equation 8.9 must be inverted. This‏ 
matter will be discussed in Section 8.3.3.‏ 


8.3.2 2D Domains 


To understand the extension of the aforementioned notion to 2D domains, consider 
the domain shown in Figure 8.4. We now consider two problems with different 
boundary conditions. Figure 8.4(a) shows the probable solution to the first problem 
T — T| (say) governed by 

02 7 9? n q'i 


= , 8.10 
дх? əx? k لي‎ 
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with boundary conditions Т = 0 (south), Т = 1 (north), and 071/07 = 0 (east 
and west), where 7 is normal to the boundary. Similarly, Figure 8.4(b) represents 
the probable solution to the second problem Т = 75 (say) governed by 


027 027 Е כ"‎ 
дх? əx? k 





, (8.11) 


with boundary conditions 75 = 0 (west), 7 = 1 (east), and д7›/дп = 0 (north and 
south). The solutions to Equations 8.10 and 8.11 therefore can be written as 


Ti = Tı (ху, хә), Т = D(x, x2). (8.12) 


Each isotherm (7; and 7) thus represents sets of values of x; and x». In 
Figure 8.4(c), the two solutions are superposed. The isotherms now take the appear- 
ance of a body-fitted curvilinear grid. Now, as in the previous section, Equation 8.12 
can also be written by simply interchanging the roles of Т and x. Analogous to Equa- 
tion 8.9, therefore, we may state that the appropriate equations for determination 
of coordinates x, and x» are 


9& 8025 
2 ll. — 
У & = Ox? dxl = P(&, ё), (8.13) 
97% д2, 
2 0/0 = 
Vi = 8х2 + 9х2 = О(&1, &), (8.14) 


where & and é are curvilinear coordinates and P апа О are stretching functions. 


8.3.3 Inversion of Determinant Equations 


To make Equations 8.9 (in the 1D domain) and 8.13 and 8.14 (in 2D domains) 
determinants of Cartesian coordinates, they must be inverted. Thus, for the 2 
domain, we have 


кыы NN (8.15) 


Now, if directions x and & coincide (d&/dx = 1) then Equation 8.9 can be written 
as 
3? х 
= 8.16 
- )8.16( 
with א‎ = 0 até = 0 and א‎ = L at € = 1. Grid coordinates x(i) can now be deter- 
mined for various choices of C. 
For 2D domains, however, the matter is not so simple and requires vec- 
tor analysis. Thus, we recall that a covariant base vector (tangent to coordinate 
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direction &;) is defined as 





= ey c p (8.17) 


Similarly, the contravariant base vector (normal to coordinate surface ё; = constant) 
15 defined as 





205; 2 ب‎ 
CEP A (8.18) 
X3 ў 


where 15 the Jacobian. Now, from Green's theorem [70], for any quantity (vector 
or scalar) ®, 


1 
Voc 





ы! 


4 ы L кын 3+ a® 
У з ext] e=) =) БЕ (8.19) 
i=l] i i 


since 007/85, = 0. Therefore, 


2 . ^; 9 . -1 9 中 
у?фФф=у.уфФ= У`а | Уа — 
i=l 98; l=1 dg) 











(8.20) 
If we now set ® = & (a scalar), then 
3 2l 
‚да 
28 = уа‘. 8.21 
3 В JE, (8.21) 
Substituting Equation 8.21 in Equation 8.20 gives, 
3 3 3 
; д (a® a® 
9724 = d Wd e (22) EN у )8.22( 
= » 06 \ ag 5 E 
In two dimensions (9/9x3 = 0/0&3 = 0), Equation 8.22 will read as 
ar dp d dh. שב‎ 078 о а В 
vio Gt + aeg d.d —— 
9; 98, 25 055 
дФ a® 
+V’ E LL + 778 —— (8.23) 


051 0 
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The dot products are now easily evaluated from Equations 8.17 and 8.18. Thus 


21 21 _ 1 OX, 2 0X2 2 m 2 
i = GR) + (B) | == 


"em 1 = 0x1 | 0x3 дхә 
а . 5 
J? | ə 0& дё OE 


22 32 1 Oxy 2 дх2 2 2 
9 (=) «(GR = у/Л. (8.24) 


Employing these relations and using Equations 8.13 and 8.14, we can show that 





| = 2, 


172 中 : | 26 28 9e + 15) + P— +0 (8.25) 
= — | 一 一 —— tý — 一 一 з, , 
J? ag? 051 08; 0 05 082 


We now replace Ф by x; and x? and note that V?x, = V? x; = 0. Then, the 
equations for x; and x2 will read as 














д? д? д? д д 

Ta DELT ee HADA (8.26) 
0g; дё 08; 0&5 בש‎ 052 
а? д? д? д д 

а ووب‎ ty ec [Рр oz]. (8.27) 
0g} 0&1 082 0&3 0&1 0&2 


where 


OX, 0x2 дхә OX‏ ה 
OE. д& д5‏ ,05 0 


To determine functions (8.1), therefore, Equations 8.26 and 8.27 must be solved 
simultaneously with the boundary conditions specified at £j = 0, & = £i, & = 
0, and 52 = Emax. Note that Equations 8.26 and 8.27 are coupled and nonlinear 
because a, 8, and y are themselves functions of dependent variables x; and x». 
Further, we note that the equations contain both the first and second derivatives and, 
if —J* P and —J? О are regarded as velocities, the equations have the structure of 
a general transport equation. 

Itmight appear that Equations 8.26 and 8.27 can be easily discretised and solved. 
However, there is a difficulty associated with the application of boundary conditions. 
The difficulty can be understood as follows. In fluid flow problems, we would often 
desire that the grid lines intersect orthogonally with the boundary. Thus, at the north 
and south boundaries, for example, we would desire that 0x, /d& = 0. However, 
once this specification is made, we cannot specify x, on these boundaries. This is 
because if Dirichlet and Neumann boundary conditions are specified at the same 





(8.28) 
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Gamax 





0 
~g 


Figure 8.5. Grid line construction — Sorenson’s method. 


boundary, than the problem becomes overspecified or ill-posed. Therefore, we can 
specify either the value of ðxı/ðéz or of xı. However, if only one of these two 
boundary conditions is specified then the converged solutions to Equations 8.26 
and 8.27 often demonstrate grid-node clustering in some portions of the domain 
and highly sparse node distributions in other regions. 

Ideally, one would like to have complete freedom to choose x; and x2 locations 
on the boundaries and yet achieve orthogonal intersection (or at any other desired 
angle) of the grid lines with the boundaries. The method of Sorenson [71] allows 
precisely this freedom. The method is described in the next section. 


8.4 Sorenson's Method 


8.4.1 Main Specifications 


Sorenson's method permits coordinate and coordinate-gradient specification for the 
same variable x; or x2 at two of the four boundaries of the domain. Thus, let & = 0 
(south) and & = &max (north) be these two boundaries as shown in Figure 8.5. We 
now define 


0.5 


Aso = [Axi + Ax | 


(8.29) 
ог, in the limit, 


ADOL e 
d& | \d& д | | | 


&=0 
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Note that A so is the physical distance between boundary node | and its neighbouring 
interior node 2 in the & direction. Similar definitions are introduced at the north 
boundary & = £y. 

Now, let 60 be the angle of intersection between & and & grid lines at £j = 0. 
Then, 


Vé- Vé, =|a!||a7| cos 6o. (8.31) 
Using Equation 8.19, however, it follows that 
дё 082 дё 0& 
" 





Ox, Ox] 902 0X2 


| a ow) er EN 


VE ve=| 


&=0 
(8.32) 
but, from the definitions of 8; introduced in Chapter 6, 
дё E 1 дх2 0% _ 1 0X2 
ax, ل‎ 8&' əx J Oy’ 
0 1 8 д 1 8 
Wea Vee (8.33) 
0x2 J déz 0X» J 0g 


Substituting these definitions and using Equation 8.30, we can write Equation 8.32 
as 


0. 
E Ox. Ox] ₪ dso p (2) ° 

- T = | ae |] oe с-з cos Oo 
05, 0& дё 95 |₪-0 |4& | \ OE 0 





&=0 
(8.34) 


Evaluation of дхі /0&, and Ox2/0£5 
To make further progress, we must evaluate 0x, /0& and 0x2/0& at & = This 
can be done using Equation 8.34. Thus, 








0.577! 
E Ox. Ox ₪ d 50 (2) (2) 
cos 00 = — 十 к 三 
05, 0& д& 05 | | d& д8] д8] 
&=0 
(8.35) 
Therefore, since sin 00 = y 1 — cos? 00, 
0.577! 
. [58 Ox, Oxy ב‎ dso (2) p 
sin Oo = 一 + 
0& 0& | 052 08 | | 5 9&1 дё 
&=0 
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Now, solving Equations 8.35 and 8.36 simultaneously, we can show that 


—0.5 
дх\ | _ ds [5 он 0X2 sind | (22) + | 
в” ав (ар 07700 S |\ ag) |, 


(8.37) 


—0.5 
9x2 LES E: sin 0 дх2 cos Ө | (2) + (2) 
2 ^7 d&lo& ^" o& |а a) jos 


(8.38) 


Identical expressions can be developed for дх1/дё» and дх2/дё» at & = E02max:. 


8.4.2 Stretching Functions 


Sorenson [71] defines P and О functions as 
P (&1, £z) = P (£1, 0) exp (—a £2) + P (Ei, E2max) exp )--6 (Exmax — &2)}, (8.39) 
Q (&1, &) = O (£1, 0) exp (—b £2) + О (E1, Emax) exp ]- 4 (Eomax — #2)} (8.40) 


where a, b, c, and d are positive constants to be chosen by the analyst. Now, for 
convenience, we introduce the following symbols: 














Lı = — (LHS of Equation 8.26)/J? 
and 
La = —(LHS of Equation 8.27)/J?. 
Thus, 
Ox} 0x1 
Ly (& = 0) = P11, 0) —— +Q(61,0) ---| > (8.41) 
981 [go 052 1-0 
0X» 0X2 
2260 = 0( = 20.0 ---| +0(,0) --| . )8.42( 
שר‎ T3 
Therefore, using the definition of J (see Equation 8.28), we get 
1 0X2 Ox] 
P(&,0) = = | Li — = 15 = ; 8.43 
(&i, 0) J | ! 95 2 S (8.43) 


1 
06.0 - + hm nm | _. (8.44) 
| 0 
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Identical expressions again emerge for P (£i, max) and О (£1, €max). One can 
thus prescribe P and Q functions over the whole domain using Equations 8.39 and 
8.40. 


8.4.3 Discretisation 


Equations 8.26 and 8.27 can be written in the following general form: 


Ф PP дФ д2Ф д (Ф 
т а т = = (= 
дё 08i 082 0&5 05 V 2 
where Ф = x1, x2, P* = —PJ?, and O* = – 072. Equation 8.45, being of the 
conduction—convection type, can be discretised using ће UDS to yield 


) ‚ . (845) 


AP p = AE Pe + AW Pw + AN برك‎ + AS Ф; 4- 5, (8.46) 
where 


1 * * 
ה‎ MER | ER 
1 * * 
AW = + 5 (Pg | + Pp): 


1 
AN = yp 50081 05), 


1 
AS = yp + 5 1051+ 05). 
AP = AE + AW + AN + А5, 
S = —2 Bp(Pne — Paw — Pse + Pow). (8.47) 


Equation 8.46 can be solved using the ADI method. 


8.4.4 Solution Procedure 


Sorenson’s method can be implemented through the following steps. 


Initialisation 
1. Choose coordinates X1 (&1 , 0), X2 (&1 0), X1 (&i , ботах), апа X2 (&i , ботах) on the 
south and north boundaries, respectively. Also specify xı (0, £5) (west) and 


X1 (1max, $2) (east). 


2. Specify! Aso and Asmax and 6, and Omax. For orthogonal intersection, Ө = 7/2. 


3.Let P (£i, 5) = 0 (1, &2) = 0. 


! Tt will be appreciated that this liberty to specify Aso and Asmax can be very useful when south 
and north boundaries are walls and the НКЕ e—e turbulence model is employed. One can therefore 
place the first node away from the wall in the range 30 > yt < 100. 
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4. From the known coordinates on the south and the north boundaries, interpolate 
וא‎ (&, £y) and хә (£1, &)) to serve as the initial guess. Usually, linear interpolation 
between corresponding points on the south and north boundary for each ё| 
suffices. 

5.Now evaluate 0x1/9£&|, 022/051, 0x1/0&5, and 0x2/0& at & = 0 and & = £x. 
These remain fixed for all subsequent operations. 


Iterations Begin 
6. Evaluate L4 and L5? at & = 0 and & = £y. In these evaluations, the second- 
order derivatives at & = 0, for example, are represented as follows: 











ro 1 
جد‎ (ЕТО Фр Фрау З (Фра Ф; |), (8.48) 
0E) 2 
02 
جد‎ = Фи — 2 Bil — © (8.49) 
éi 
д дФ 1 [9Ф дФ 
( ) = 一 -一 . )8.50( 
05 \ 0&2 2 \ 082 بم‎ | 


7. Use equations such as 8.43 and 8.44 to evaluate P (£i, 0), О (£1, 0), P (£1, E2max), 
and Q (& , Emax). 

8. Using the preceding information and already chosen? constants a, b, c, and d, 
evaluate P (£1, £j) апа О (&i, £2) at all nodes in the domain. Between iterations, 
underrelaxation in evaluation of P and О is advised. 

9. Specify boundary conditions for x2 at the west and east boundaries. Here, care 
must be taken to take account of the type of grid being generated. If an H- or 
C-type grid is being generated, one must specify the x2 from known equations 
of the west and east boundaries since x, values are already known (see step 1). 
Alternatively, one may specify the 0x2/0&) condition to let the & = constant line 
intersect the boundary at a desired angle. If an O-type grid is being generated 
then one specifies periodic condition Ф (0, £;) = (£i, ё2). 

10. Solve Equation 8.45 for ® = x1, x2 and check convergence. 
11.If the convergence criterion is not met, go to step 6. 


8.4.5 Applications 


H Grid 
Figure 8.6 shows the grid for a flow between parallel plates with a constriction. 
South (x5 = 0) is the axis of symmetry, north is a wall, west (x; = —8) is the 


? Typically, а = b = c = d = 0.7. If too small a value is used (0.2, say), the effect of the constants 
decays slowly away from the south/north boundaries. Iftoo large a value is chosen, the effect decays 
very rapidly. 
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Figure 8.6. Example of H - grid. 


inflow boundary, and east (x; = 20) is the exit boundary. The channel half-width 
is b = 1 and the constriction height is б. The constriction profile for the range 
一 X0 < Ху < xo is given by 


X2 ó T XI 
7 4 5 (1+ 608). 

The figure shows the grid generated with Aso = Asmax = 0.035, 6/b = 2/3, 
and xo/b = 4. The grids, 32 in the &, direction and 15 in the & direction, are 
generated using the following boundary conditions. 

South: x; = 0, for -8 > x, > 20. 

North: x; = 1 for —8 > ןא‎ > 一 X0,X2 = f (xi) for —xo > xı < xo and, x2 = 1 
for x9 > xı < 20, where f(x) is the constriction shape function already mentioned. 

West: x; = —8, дх2 /дё\ zx. 

East: x; = 20, дх›/0& = 0. 

To maintain clarity, the generated grids are shown in Figure 8.6 for —6 > x; > 5 
only. Three values of constants (1.0, 0.75, and 0.5) are used and are indicated 
in the figure. For the largest value, the & grid lines аге more evenly spaced in 
the range 0.25 < x2 < 0.8. For smaller values, the grid nodes are attracted more 
towards the north and the south boundaries, yielding fewer nodes in the middle range 
of x2. 
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Figure 8.7. Example of C - grid. 


C Grid 

Figure 8.7 is an example of the C grid. The figure shows a channel with a 180° 
bend. The inner radius of the bend is Ri = 1 and the outer radius is R, = 2. The 
flow enters the west boundary and exits from the east boundary. There are 30 nodes 
in the Z (or, &i) direction and 12 nodes in the J (or, 52( direction. The grids аге 
generated using the following specifications: 

West: ןא‎ = 0, 0x2/d& = 0, x2 (1, 1) = 1, and x2 (1, JN) = 2. 

East: x, = 0, дх›/0& = 0, x2 (1, 1) = -1, and x; (1, JN) = —2. 

South: x;(i, 1) = 1 for 7 = 1 to 8, x1(8,1) = x1(8,7N) = 5, xı (i, 1) = 
x1(8, 1) + А; (соѕ0 — 1), x? (i, 1) = Rj sin for i = 9 to 23, x2(i, 1) = —1 for 
i = 24 to IN, and x; (24, 1) = xı (24, JN) = 5. 

North: x5(i, JN) = 2 fori = 1 to 8, xı (i, JN) = xı (8, JN) + Ro (cos 0 — 1), 
X5 (i, JN) = Ro sin0 for i = 9 to 23, and x2(i, JN) = —2 fori = 24 to IN. 

In these specifications, 0 varies from 0? to 180^. The grids are generated with 
Aso = ASmax = 0.05 and a = b = c = d = 0.7. The & grid lines show much 
closer spacings near the north boundary than near the south boundary. 


O Grid 
Figure 8.8 shows 74 (&; or circumferential) x 25 (& or radial) grids around the 
GE90 gas-turbine blade whose surface (south boundary) coordinates are known.? 
The outer circle (radius — 3x the axial chord) forms the north boundary. The west 
and east boundaries are periodic and, therefore, x, and x2 coordinates at i = 1 and 
i — IN coincide. The figure also shows details ofthe grid structure near the trailing 
and leading edges of the blade. 

It must be remembered that grid generation is somewhat of an art because 
different choices of node locations on the boundaries and the constants in the 


? Although a more practical situation involves a cascade of blades, here the blade is treated as an 
isolated airfoil. 
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Figure 8.8. Example of O grid. 


stretching functions can produce different grid spacings and stretchings inside the 
domain. One needs to make a few trials before accepting the generated grid. A 
graphics package such as TECPLOT for mesh visualisation is therefore neces- 
sary. The package also has a zooming facility to permit visualisation of dense-grid 
regions. 


8.5 Unstructured Mesh Generation 


8.5.1 Main Task 
Unstructured mesh generation essentially involves two tasks: 


1. locating vertices in the domain and 
2. creating vertex and element files (as mentioned in Chapter 6). 


These tasks can be carried out in a variety of ways. The two most commonly used 
are the following: 


1. Locating vertices by curvilinear grid generation so that a regular (i, j) structure 
15 readily available for vertex numbering. 

2. Locating vertices according to rules that yield arbitrary vertices without (i, j) 
structure. In this automatic grid generation method, node numbering requires 
care. 


These alternatives are considered next for further explanation. 
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1 = IN =9 


J JN - 5 EAST 
36 27 18 


WEST 


Figure 8.9. Linear numbering of a structured grid. 


8.5.2 Domains with (i, ]( Structure 


Consider the complex domain shown in Figure 8.9. The domain is laid with a 
curvilinear structured grid. A typical vertex (i, j), therefore, will have eight im- 
mediate neighbours: (i + 1, 3), 6 3-1,  - 1,60, 4-156 -/+1.6 — 1, у), 
(i — 1, j — 1), (i, j — 1), and (i + 1, 7 — 1). We now designate each vertex by a 
one-dimensional address system rather than a two-dimensional one. Thus, vertex 
(i, j) can be referred to by vertex number NV (say), where 


NV =i+(j-1)x IN. (8.51) 


In Figure 8.9, nodes are linearly numbered for 8 grid with / N = 9 and JN = 5. 
According to Equation 8.51, vertex (JN, JN) will be referred to by NVMAX = 
IN x JN, whereas for vertex (1, 1), NV = 1. Now, since coordinates of vertices 
are known, one can readily form the vertex file. 

With this linear numbering, one can construct a minimum of two triangular 
elements out of each quadrilateral element. This formation can be of two types 
as shown in Figure 8.10. In each case, elements must be numbered along with 
the associated three vertex numbers to form the element file. This task can be 
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NV, NV, 


NV, МУ, 


NV, NV, 


a) TYPE 1 b) TYPE2 


Figure 8.10. Construction of triangular elements from a quadrilateral element. 


accomplished by a simple routine as follows: 


6 *** FOR NV (ODD), ТҮРЕ1 , FOR NV (EVEN), TYPE2 (IN, JN KNOWN) 
NE1-0 
DO 1 J-1,0N-1 
DO 1 I-1,IN-1 
NV-I*(J-1)*IN 
NE1=NE1+1 
NE2=NE1+1 
M=MOD(NV,2) 
NV1-NV 
NV2=NV1+IN 
NV3=NV2+1 
NV4=NV1+1 
IF(M.EQ.1)THEN 
WRITE(6,*)NE1,NV1,NV3,NV2 
WRITE(6,*)NE2,NV1,NV4,NV3 
ELSE IF(M.EQ.0)THEN 
WRITE(6,*)NE1,NV1,NV4,NV2 
WRITE(6,*)NE2,NV4,NV3,NV2 
ENDIF 
NE1=NE2 

1 CONTINUE 


Figure 8.11 shows the element numbering for the grid shown in Figure 8.9. The 
numbering is carried out using the routine given here. 


8.5.3 Automatic Grid Generation 


Automatic grid generation (AGG) is used to generate elements having desired 
properties and desired density (1.е., clustering). For example, when 2D triangular 
elements are generated, one may desire that each element has a prespecified area or 
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Figure 8.11. Unstructured mesh. 


that no included angle shall exceed 90°. There are several ways in which this may 
be achieved and the subject matter is as much an art as it 15 a science. Fortunately, 
useful reviews of methods for AGG are published from time to time and the reader 
Is referred to one such review [27] by way of an example. 

Methods for AGG can be classified based on element type, element shape, mesh 
density control, and time efficiency. The most popular mesh-generation methods 
first create all vertices (boundary and interior) and then connect them by lines to 
form triangles. The question then arises as to what 15 the best triangulation on a 
given set of points. The most popular principle for triangulating is called Delaunay 
triangulation. 

To understand the scheme, consider a set of vertices on a domain as shown in 
Figure 8.12. In this figure, triangle A represents a Delaunay triangle because the 
circumcircle passing through the three vertices encloses no other vertices. This, 
however, is not true for triangle B, which is therefore not a Delaunay triangle. It is 
obvious that if the set of vertices were arbitrarily chosen, and their locations were 
fixed, then it would be difficult to meet the requirement of Delaunay triangulation. 
Without proof, we state that Delaunay triangulation is achieved in such a way that 
thin elements are avoided [27] whenever possible. 
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Among the many methods available for triangulation, perhaps the most 


convenient 15 the triangulation by point insertion method. The method is executed 
in three steps (see Figure 8.13): 


1. 


Define and discretise domain boundaries. Straight boundaries can be discretised 
by employing formulas such as Equation 8.2 or by a cubic-spline technique [63]. 
Curved boundaries, however, require further care. 

Triangulate the boundary points using the Delaunay triangulation principle. This 
creates new vertices interior to the domain. 

Triangulate the remaining interior domain by point insertion. Starting from an 
existing pair of vertices (1 and 2, say), a third vertex can be searched under a 
variety of constraints. One such constraint is the aspect ratio AR = ri / (21), 
where r; is the radius of inscribed circle and г, is the radius of circumscribed 
circle.* The new inserted vertex is now placed at the circumcentre of the triangle 
1-2-3 with minimum AR. 


One can thus complete the triangulation of the entire domain. These three steps 


can be cast in the form of an algorithm and a computer program can be written 
for its implementation. A computer program based on a method by Watson [87] is 
available in [67]. The next task is to create the data structure. This refers to creation 
of vertex and element numbering to prepare the required vertex and element files. 
Several commercial packages for AGG are available that can create mixed elements 
and three-dimensional polyhedra. Using these packages, meshes can be generated 


4 


Here, ri = A/s, re = 0.25 x ax bx c/A, semiperimeter s = (a + b --c)/2, and area A= 
Js (s — a)(s — b)(s — с). a, b, and с are lengths of sides of the triangle 1-2-3. 
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Figure 8.13. Point insertion technique. 


to describe flow over an entire aircraft or over and through a car (including the 
engine space below the bonnet). In such applications, millions of elements are 
needed and the question of the efficiency with which an AGG algorithm is devised 
becomes important. The task of AGG has thus assumed considerable significance 
to be recognised as a specialised branch of CFD. 


EXERCISES 
1. Derive formulas analogous to Equations 8.2 and 8.3 to determine the distribu- 
tion of x«(i). 


2. Generate x; and x2 coordinates of an ellipsoidal duct by algebraic grid genera- 
tion, exploiting symmetry. 


3. Starting with Equation 8.19, derive Equations 8.26 and 8.27. 
4. Discretise Equation 8.45. 


5. Develop a generalised computer program to solve Equation 8.45 for Ф = x, 
and x2. (Hint: You will need to develop a USER file and a LIBRARY file. 
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Figure 8.14. Flow over a cascade of louvres. 


The USER file should execute the first two steps of the calculation procedure 
described in Section 8.4.4.) 


6. It is desired to determine drag coefficient of a cascade of louvres as shown in 


Figure 8.14. For this purpose, an analyst selects the domain a-b-c-d-e-f-g-h. 
Use the computer program developed in Exercise 5 to generate curvilinear 
grids and provide boundary conditions for x, and хз. Take ab = 1, رط‎ = 
І = 1.0, 5 = 0.25, P = 0.5, t = 0.05, and cd = 1.5. 


7. Repeat Exercise 6 forthe GE90 gas-turbine blade cascade shown in Figure 8.15. 


The coordinates? of the suction and pressure surface of the blade are given in 
Table 8.2 (30 points on the suction surface and 46 points on the pressure surface). 
The other dimensions are as follows: axial chord C4, = 12.964 cm, pitch Р = 
13.811 cm, blade inlet angle В; = 35°, and blade outlet angle В; = —72.49°. 
(Hint: If more points are required on the blade surface, their coordinates can 
be generated using spline interpolation [63 ].) 


8. Consider flow in a duct of square cross section in which a twisted tape has been 


inserted as shown in Figure 8.16. The width of the tape equals the duct-side 
length D. This three-dimensional flow can be analysed by generating 2D grids 
at several cross sections along the axis at different angles Ф from the vertical. 
One such section А-А at angle Ф = 22.5? is shown in the figure. The thickness 


? The author is grateful to Prof. R. J. Goldstein of the University of Minnesota for providing the 


coordinate data. 
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Figure 8.15. Schematic of a gas-turbine blade cascade. 


of the tape 6/D = 0.04. The flow is symmetric about the tape with secondary 
flow being transferred through the gaps c-d and e-f. Therefore, curvilinear 
grids may be generated over only half of the duct cross section. Select west, 
north, east, and south boundaries and adapt the computer program of Exercise 5 
to generate the curvilinear grid. Also specify the boundary conditions for the 
velocity components u;, i — 1, 2, and 3. (Hint: For the purpose of generat- 
ing the curvilinear grid, assume 6 = 0 to avoid any sharp protrusion into the 
domain.) 


9. The vertex file for the domain of Figure 8.9 is given in Table 8.3. Reading this 
file, prepare an element file using the routine given in Section 8.5.2 to generate 
a triangular mesh as shown in Figure 8.11. Now, with reference to Chapter 6, 
develop a computer program to do the following: 


(a) Identify neighboring element numbers of each element. Store this infor- 
mation in array NHERE (N, K). 


(b) Define boundary nodes B and assign node numbers to them. 
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Table 8.2: Coordinates of suction (upper half) and pressure (lower half) 
surfaces - GE90 blade. 











ху / Са хә / Cax ху / Cax Xo / Сах X1 / Cax хә / Сәх 
0.0000 0.0242 0.2365 0.2752 0.7735 —0.1793 
0.0014 0.0377 0.2989 0.2886 0.8071 —0.2703 
0.0063 0.0550 0.3656 0.2868 0.8383 —0.3621 
0.0155 0.0759 0.4328 0.2684 0.8678 —0.4545 
0.0296 0.1001 0.4967 0.2348 0.8959 —0.5473 
0.0484 0.1269 0.5556 0.1878 0.9229 —0.6404 
0.0722 0.1565 0.6083 0.1304 0.9491 —0.7338 
0.1014 0.1878 0.6552 0.0646 0.9747 —0.8273 
0.1376 0.2200 0.6942 — 0.0025 0.9997 —0.9210 
0.1822 0.2506 0.7364 —0.0897 1.0000 —0.9235 
0.0000 0.0242 0.1147 0.0124 0.7238 —0.3864 
0.0009 0.0146 0.1434 0.0190 0.7603 —0.4915 
0.0031 0.0079 0.1760 0.0244 0.7950 —0.5183 
0.0052 0.0038 0.2133 0.0273 0.8282 —0.5854 
0.0070 0.0013 0.2551 0.0256 0.8603 —0.6531 
0.0085 0.0000 0.3006 0.0180 0.8914 —0.7212 
0.0098 — 0.0007 0.3478 0.0035 0.9218 —0.7897 
0.0120 —0.0018 0.3950 —0.0175 0.9515 —0.8585 
0.0153 —0.0031 0.4412 —0.0452 0.9807 —0.9274 
0.0205 —0.0046 0.4857 —0.0789 0.9828 —0.9306 
0.0279 —0.0055 0.5286 —0.1184 0.9859 —0.9327 
0.0384 —0.0054 0.5695 —0.1626 0.9895 —0.9336 
0.0522 —0.0035 0.6088 —0.2112 0.9932 —0.9330 
0.0694 0.0003 0.6441 —0.2596 0.9968 —0.9309 
0.0903 0.0058 0.6853 —0.3222 0.9992 —0.9276 
= 一 一 一 1.0000 —0.9235 











10. 


(c) Calculate geometric coefficients B11 (N , К) and B21 (N , К); cell-face 
area АСЕ (N , K); lengths LP2E2 (М, K), LX1 (N, K), LX2 (М, K), DXI 
(N , K), and DX2 (N , K); and weighting factor FM (N , K). 


(d) Calculate the cell volume VOL (N) of each element. 
Including the boundary nodes, what 15 the total number of nodes, NMAX? 


To dispel the idea that unstructured meshes must necessarily be triangular or 
polygonal, an analyst maps a complex domain with essentially a Cartesian 
mesh, as shown in Figure 8.17. Now, it is seen that cells with more or less 
than four faces occur near an irregular boundary (see the enlarged view) and 
the dimensions of such cells can be determined from the known coordinates 
of the irregular boundary. Essentially, therefore, the mesh can be generated by 
algebraic specification. It is also possible to obtain any desired cell density. Of 
course, to do this automatically, a computer program must be written. Further, 
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Table 8.3: Vertex file data. 




















NV וא‎ Xo NV X Xo NV X Xo NV X Xo 
1 0 0 13 33 1 25 78 27 37 0 27 
2 8 —3 14 50 6 26 82 41 38 10 27 
3 10 —6 15 78 15 27 84 51 39 20 28 
4 35 —4 16 83 26 28 0 20 40 33 29 
5 54 4 17 88 40 29 12 18 41 46 33 
6 79 13 18 92 51 30 22 18 42 55 36 
7 87 26 19 0 14 31 32 18 43 62 39 
8 91 40 20 12 10 32 48 21 44 66 45 
9 100 51 21 23 8 33 58 27 45 66 51 

10 0 6 22 32 8 34 67 35 

11 10 0 23 48 11 35 74 43 

12 22 0 24 70 20 36 75 51 








U-A 


DOMAIN 





Figure 8.16. Flow in a duct of square cross section containing a twisted tape. 
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Figure 8.17. Flow over а multielement airfoil. 


note that cells identified by filled circles, though rectangular, may have more 
than four neighboring cells. 


(a) Identify the number of neighbouring cells for the two cells marked with 
filled circles. 


(b) Examine whether the discretisation procedure described in Chapter 6 can 
be employed for such a mesh. 


11. It is desired to generate an essentially quadrilateral unstructured mesh for the 
moon-shaped duct shown in Figure 6.35.The duct shape, however, is such that in 
some portions of the duct the elements must be triangular to avoid unnecessary 
concentration of nodes. Write a computer program to generate such a mixed- 
element grid and generate vertex and element files. 


9 Convergence Enhancement 


9.1 Convergence Rate 


In all the preceding chapters it was shown that discretising the differential transport 
equations results in a set of algebraic equations of the following form: 


АРФ = ( 4,0, 5, (9.1) 


where suffix k refers to appropriate neighbouring nodes of node P. In pure conduc- 
tion problems (Ф = Т), Ак and S may be functions of T. In the general problem 
of convective—diffusive transport, Ф may stand for any transported variable and A, 
and S may again be functions of the under consideration or any other Ф relevant 
to the system. In curvilinear grid generation, Ф = x1, x2, and A, and S are again 
functions of x, and x». In all such cases, if there are N interior nodes, we need 
to solve N equations for each variable Ф in a prespecified sequence. An iterative 
solution is particularly attractive when the algebraic equations for different ds are 
strongly coupled through coefficients and sources. 

In an iterative procedure, convergence implies numerical satisfaction of Equa- 
tion 9.1 at each interior node for each Ф. This satisfaction is checked by the residual 
in Equation 9.1 at each iteration level 1 (say). Thus 


К; = АРФЬ— УАФ, 5. (9.2) 
The whole-field convergence is declared when 


D nodes { Rp ג‎ 7 


Rnorm 


R? = 





< СС, (9.3) 


where CC stands for the convergence criterion and Rnorm 1s a dimensionally correct 
normalising quantity defined by the CFD analyst. For example, in a problem with 
total inflow rij, and average property Фи, Азот = min X Pin (Say). If no such 
representative quantity is found then Rnorm = 1. Ideally, CC must be as small as 
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the machine accuracy will permit but typically CC = 107° (say) suffices for most 
engineering applications. 
The convergence rate C R may be defined as 


CR=-—., (9.4) 


where / is the iteration level. Economic computations will require that CR must 
be as high as possible. Algebraic equation solvers such as the GS, the TDMA, and 
the ADI introduced in Chapter 5, however, demonstrate the following convergence 
rate properties: 


1. Overall CR is higher when A; and S are constants rather than when they are 
dependent on ®. 

2. The initial (small /) CR is high but progressively decreases as convergence is 
approached. 

3. CR is higher when the A; are small (for example, coarse grids) than when they 
are large (fine grids). 

4. CR is higher when Dirichlet boundary conditions are specified at all boundaries 
than when Neumann (or gradient) boundary conditions are specified. This is one 
reason why the pressure-correction equation 15 slow to converge. 

5. Theconvergence history (i.e., R® ~ / relationship) is typically monotonic when 
A, and S are constants but can be highly nonmonotonic (or oscillatory) when 
the equations are strongly coupled. 


This last point is concerned with the stability of the iterative procedure. The 
reader may wish to relate this phenomenon with damping of waves discussed in 
Chapter 3. 

The CR of the basic iterative methods (GS and ADI for 2D problems) can be 
enhanced by several techniques. Here, a few of them that have the facility of being 
incorporated in a generalised computer code will be considered. It is important to 
note, however, that all convergence enhancement techniques essentially take ever 
greater account of the implicitness embodied in the equation set (9.1). Thus, it 5 
recognised that ®p is implicitly related not only to its immediate neighbours but also 
to its distant neighbours. The objective, therefore, is to strengthen this relationship 
with the distant neighbours. 

The merit of this observation has already been sensed in Chapter 2, where 
convergence rates of GS (point-by-point) and TDMA (line-by-line) procedures 
were compared for a 1D problem. In this chapter, the main interest 15 to consider 
2D problems. The enhancement techniques considered can also be extended to 3D 
problems. 


9.2 BLOCK CORRECTION 


9.2 Block Correction 


The block-correction technique is used to enhance the convergence rate ofthe ADI 
method. Thus, we rewrite Equation 9.1 as 


AP; j Bij = AE, Фу БАЙ, 004; 
+ ANi,j Ф; jy + AS); Ф; + и; у, (9.5) 
where 
AP; ; = AE; + АЙ, + АМ j + AS; + 5р. (9.6) 


Equation 9.5 15 written such that the boundary coefficients of the near-boundary 
nodes are zero and the boundary conditions are absorbed through Su and Sp, as 
explained in Chapter 5. Thus, 


AW»; = رب وراك‎ = ASi2 = ANi,sn-1 = 0. (9.7) 


The central idea of the block-correction technique is that an unconverged field 
Ф! ; 15 corrected by adding uniform correction Ф, along lines of constant i. Thus, 
let 


Dij = 0, + Bi. (9.8) 


Now, the correction ®; is chosen such that the integral conservation over all control- 
volumes on a constant-i strip is exactly satisfied. The equation governing ©; is thus 
obtained by a two-step procedure. First, Equation 9.8 is substituted in Equation 9.5 
so that 


AP; j (Ф; | "b Ф) = АЕ; (Фі. T Ф) + АЙ, (Ф|, SP 9, 1) 
+ AN; (Ф. + ©) + 45; )% +) 
+ Su; ;. (9.9) 


Then all such equations for 7 = 2,3,...., JN — 1 are added. Thus, one obtains 


ВР, Ф; = ВЕ; Ф + ВУ; Ф, + BS, i=2,...,IN—1, (9.10) 


where 

JN-1 

B P; 一 > (АР; uod АМ, = ASi, у), 
у=? 
JN-1 

BE; = У AE; j 
322 
JN-1 

BW; = 


У: AW, j, (9.11) 
J=2 


261 


262 


CONVERGENCE ENHANCEMENT 


and 
JN-1 
j=2 
+ AS; j $a + Sui, j - АР, o [ 1 كك‎ 


It will be recognized that the quantity inside the summation in Equation 9.12 is 
simply =? ر‎ (see Equation 9.2) at iteration level /. Further, Equation 9.10 can be 
easily solved by TDMA. In this equation, B Ery-1 = ВИ» = 0 (see Equation 9.7) 
and hence Фуу and ® are not needed. A similar exercise in the j direction will 
result in an equation for Ф ;. 

The overall procedure is as follows: 


1. Solve Equation 9.5 once using ADI to arrive at the Ф! ; field. 

2. Form the B coefficients in Equation 9.10 and solve this equation by ТОМА to 
yield Ф, corrections. Reset Ф; ; according to Equation 9.8. 

3. Repeat step 2 to yield ®; corrections and reset Ф; ; again. 

4. Return to step 1 if the convergence criterion 1s not satisfied. 


The block-correction procedure generally produces considerably faster con- 
vergence than the ADI method but, in certain circumstances, it may produce an 
erroneous solution or even divergence. Such a circumstance may arise when Ф is 
highly nonuniform and Ф, ог Ф; may produce over- or undercorrections. There- 
fore, the block-correction procedure may be treated as an optional convergence 
enhancement device. 


9.3 Method of Two Lines 


In the ADI method, two sweeps are alternately executed in 7 and j directions (see 
Chapter 5). Within each sweep, however, the ТОМА 15 executed only along a 
single line so that Ф values of that line are updated simultaneously. To enhance 
the convergence rate, it is possible to devise a TDMA procedure for two, three, or 
multiple lines. By way of illustration, we consider the method of two lines [56, 21] 
in which the following definition is introduced: 


$/;,—9;;. (9.13) 
Consider lines j and j + 1 for the sweep in the i direction. The discretised equations 


along these lines will read as 


AP; ; + 


E 


== 4 ж 7 . * 
ум} 二 АЁ„;Ф у + АЙ уы 


+АМ j Di jy + Ades Dp ap + Sui j, (9.14) 


AP; уу Фу = АЕ; ра Piti j+ + АЙ у 60 11 
+ AN; 741 Фі + ASi ji Ф + Sui je. (9.15) 
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In writing these equations, it is again assumed that Equation 9.7 holds. Now let 

















ае; = muy 5 ае? == АЁ у ; 
AP; j иви 
ms og SIDE 
AP; j ! AP, jai 
an; = у. ап* = шы. 
AP. АР, + 
as; = 48) is, == Абун 
AP, j Ры 
аа Tu (9.16) 
AP; ; ' ^ 4 41 
Using these definitions, Equations 9.14 and 9.15 can be written as 
Фі = ae; OF, Баш Ф у. + ani Pip + bi, (9.17) 
Ф; j = ае; ان‎ + aw; Ф; + аз Ф js + b. (9.18) 
where 
j*=j+1, (9.19) 
bi = as; Pi j-1 + di, (9.20) 
bi = an; Ф, уо +d;. (9.21) 


Equations 9.17 and 9.18 represent two equations with suffix /*. Our interest 15 
to solve them simultaneously. To do this, let 


Ф = 459%, + В*Ф + С], (9.22) 
Ф; 一 Aj Ф +1 + B; Ф| + C (9.23) 


where suffix j* is dropped for convenience. We now evaluate 7? , from Equa- 
tion 9.22 and substitute this into Equation 9.17. After some algebra, it can be 
shown that 


DF = o OF, , + 05; Ф; + 05, (9.24) 


where 
ае 
1—аш А? | \ 


aw; B? | +an; 
0/2 === 
l — aw; A7 | 


Qui Ci + bi 
0Q3i لس‎ 


9.25 
1 - аш; A ( ) 


x °* 
1—1 
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Similarly, evaluating Ф;_ from Equation 9.23 and substituting in Equation 9.18, 
we have 


Ф, = Bi; Pii + Boi Фу + Өз. (9.26) 


where 


ae* 


Bu = 


* 7 
1 — aw; Aii 


0 aw, Bi_1 + asř 

р = ————_, 
1 —au; А1 
ж ж 
aw? С; + b? 
1 = aw; Ара 


Вз = (9.27) 


If we now substitute Equation 9.26 in Equation 9.24, then comparison with Equa- 
tion 9.22 will show that 


А* = Qi 
: 1 一 о; Boi’ 
جور‎ 901 Pii 
= 05; fui 
i P3i + 03: 
Сш I (9.28) 


Similarly, substituting Equation 9.24 in Equation 9.26 and comparison with 
Equation 9.23 will show that 


Ai = 0 
1 — a; Bo; 

B= Boj 0/1 , 
1 — a; Bo; 

С, = Bo; 03; + Psi (9.29) 
1 一 a; Poi 


The overall two-line TDMA procedure is thus as follows: 


Consider j and j* = j + 1 lines. 

Form as, a*s, d, and а“ according to Equation 9.16 fori = 2,3,..., IN — 1. 

Form b; and 57 from Equations 9.20 and 9.21 fori —2,3,..., IN — 1. 

Evaluate as, 6s, As, Bs, and Cs fori = 2, 3,..., IN — 1 by recurrence. Note 

that 41 = B = 6] = mH =C; =0 

5. Hence solve Equations 9.22 and 9.23 by back substitution (i.e., i = IN — 1 
to 2). 

6. Set 中 = Ф? and Ф; ן+;‎ = Ф;. 


Secus = 





9.4 STONE'S METHOD 


7. Go to step 1 with the next value of j (Le., j = j + 1). 
8. Repeat steps 1-7 until j = JN — 2. 


A similar procedure can be executed for sweep on the 7 direction. Finally, we 
note that a procedure for simultaneous solution for three, four, or more consecutive 
lines can also be devised but the associated algebra is very tedious. It will be realised 
that ifa simultaneous solution procedure is devised for all lines in a given direction, 
one will have a procedure that is equivalent to the matrix inversion method for the 
whole field. 


9.4 Stone's Method 


As mentioned in Section 9.1, the convergence rate is sensitive to the structure of 
the coefficient matrix. Stone [79] devised a whole-field procedure that reduces this 
sensitivity. To apply the method, it 1s first necessary to change the 2D node address 
(i, 7) to the 1D address N. Thus, 


N-ict(j = 1) х1м, (9.30) 


where N = 1,..., Nmax and Nmax = /N x JN. Equation 9.5 therefore can be 
written as 


APy Фу = AEn ןאש‎ + AWy yi 
+ ANy Фуну + ASy Фуу + Suy. (9.31) 
In matrix form, this equation can be written as 
|А|| Ф| =| Su]. (9.32) 


Figure 9.1 shows the fully expanded form of Equation 9.32. Note that matrix A has 
a maximum of five nonzero elements in each row. 

The main idea in Stone's method is to represent matrix А as a product of two 
matrices, U and L. Thus, the L matrix (or lower matrix) is formed in such a way 
that all entries above the diagonal are zero. The diagonal element 15 occupied by 1, 
and positions of — 477 and —AS in the A matrix are now taken by BW and BS 
(say). Similarly, in the U matrix (or upper matrix) all elements below the diagonal 
are set to zero; the diagonal elements are occupied by B P and elements occupying 
positions — AE and —AN are replaced by B E and B N, respectively. The L and U 
matrices are shown in Figure 9.2. Note that the size of L and U matrices 1s again 
Nmax x Nmax- 

Unfortunately, the product matrix |U| x |L| does not produce the А matrix 
exactly. Instead, a matrix shown in Figure 9.3 is produced. This matrix has 
two additional nonzero entries that occupy positions NW(i — 1, j + 1) and 
SE(i 4-1, j — 1). In terms of elements of the U and L matrices, the elements of 
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1 2 3 4 5 6 7 8 9 тах 
1 
API -АЕІ 0 0 -ANI 0 0 0 0 0 Ф 
1 Su, 
J ES N NC 
2 -AW2  AP2  -AE2 0 0 —AN2 0 0 0 0 Ф, 5и, 
3 
1 IN j 
5 -ASN 0 0 -AWN APN -AEN 0 0 -ann ° o. = Su, 
6 < 
1 
8 
9 
Nmax 0 0 0 0 0 —ASmax 0 0 —AWmax —APmax Dax Su max 
Figure 9.1. Matrix representation of Equation 9.31. 
ВРІ BEI 0 0 BNI 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 
0 BPBE о о BN2 0 о о о BW2 1 0 0 0 о 0 0 0 0 
0 0 1 0 0 0 0 0 0 0 
0 0 0 1 0 0 0 0 0 0 
0 0 0 0 BPNBEN О о BNN 0 BSN 0 0 BWN I оо о 0 0 
0 0 0 0 0 N 0 o0 
0 0 0 о 0 0 0 
0 0 0 0 0 0 0 
0 о о о о 1 0 
0 0 0 о о о 0 0 ОВР 0 0 0 0 0 BS 0 0 BW 1 
max max 
U Matrix L Matrix 


Figure 9.2. The L and U matrices. 








9.4 STONE'S METHOD 





1 2 3 4 5 6 Я 8 9 
1 CPI CEI 0 CNWI CNI 0 0 0 0 
cy NON 

2 |cw2 СР? CE 0 CNW2CN2 0 0 0 
3 
4 x IN 

^ 
5 [CSN 0CSEN 0 CWN CPN CEN 0 CNWNCNN 


Nmax 0 0 0 0 0 "OS CSEmax 0 СУ 





Figure 9.3. Product matrix |U| x |L |. 


the product matrix are given by 
CPy = BPy + BEy BWyi1 + BNy BSN+IN, 

—CEy = BEy, 
—CNy = BNy, 
—CWy = BWy BPy, 
—CSy = BSy BPy, 

—CSEy = BEy BSwn+, 

—CNWy = BNy В Уруум. 


Thus, the product matrix equation |U| x || x |®| = |Su| will imply 


(9.33) 


CPy Фу = СЕу Фу + CWn Фу + CNy Фуну + CSy Oy IN 


+ CSEy بره‎ IN + CNWy Oy juu + Sun, 


(9.34) 
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and the structure of the product matrix will take the form 
|שן‎ |L||®| = |4 + |ש| اط‎ = [Sul]. )9.35( 


This structure is clearly not the same as that of Equation 9.32 because matrix А 
15 augmented by D. Stone, however, postulated that Equation 9.34 will be a good 
approximation to Equation 9.32 if the following substitutions are made: 


Oy. quy = وله‎ (Фу-1 + Фугу — Py), (9.36) 
Фу-у = وله‎ (Фур Py ry — Py), (9.37) 


where 0 < as > 1 is an arbitrary constant to be chosen by the analyst. Making the 
above substitutions in Equation 9.34 gives 


[C Py + о (CNWy + CSEyn)] Фу 
= (CEy + a,CSEn) Фу + (CWy + يبه‎ CNWy) Oy. 
+(CNy + ونه‎ CNWy) Фугу + (Су + ونه‎ CSEn) Фугу + Suy. 
(9.38) 
Equation 9.38 now has the same structure as Equation 9.31. Therefore, replacing 


the Cs in Equation 9.38 via Equations 9.33 and comparing the coefficients with 
those in Equation 9.31, we can show that 


= odd алй и, (9.39) 
BN = —ANU Aus Bam), (9.40) 
BPy = APy + as(BNy В Уууу + ВЕу (א1+א85‎ 

— (BEy ВТ + BNy BSystn), (9.41) 
BWy = —(AWn + as 8 אא‎ BWNrIN)/ BPN, (9.42) 
Sy et а BERS a Bb. (9.43) 


Now, it is expected that the product matrix will be a close approximation to the A 
matrix (i.e., D — 0). In actual solving, therefore, the product matrix equation is 
written as 


|A + DII! = |A + DI |©] + | Sul — | А||Ф!|. (9.44) 
We now define 
|8ן‎ = [9+] - |o, (9.45) 


|R| = —[|А||Ф/| - Sul], (9.46) 


9.5 APPLICATIONS 


where 6 is the change in ® over one iteration and R is the negative of the nodal 
residual. Therefore, Equation 9.44 can be written as 


|A + D| |ة|‎ = |R| = |U] |L |l]. (9.47) 
The overall procedure is thus as follows: 


1. Form elements ofthe residual Ry matrix from AP, AE, AW, AN, AS, and Su. 

2. Form BWy, BSy, BEy, BNy, and B Py by recurrence (i.e., from N = Nmax 
to 1) using Equations 9.39-9.43. Store B Wy and B Sy. 

3. Form |V| = |1| |8| = |R| |U|-!. This implies that 


Vy = (Ry — BEy үн - BNy Ухуым)/ВРу (9.48) 
for N = Nga, ..., l. 
4. Hence, determine |5| = |V| | |, which implies 
ôn = Vy — Вудуу — BWy ן-א6‎ (9.49) 


for № =1,..., Nga. 
1 
5. Update PH = PN + dy. 


In Stone's method, о; turns ош to be problem dependent. However, advice on 
the choice of o, max is available in [29]. 


9.5 Applications 


In this section, convergence enhancement procedures described in the previous 
sections will be tested against four problems. In each problem, convergence rate 
and computation times for different grid sizes are recorded. A depiction of typical 
convergence history in Problem 4 is also provided. 

Consider a rectangular domain 0 € X < 0 3200 > Y > b. Assume steady-state 
heat conduction with the following boundary conditions: 

Problem 1: T(0, Ү) = T(a, Y) = T(X,0) 20, Т(Х, р) = T; = 1, а= 2, 
and b — 1. 

Problem 2: T(0, Y) = T(a, Y) = Т(Х,0) = 0, T(X,b)=7, =1, а= 5, 
and 2 = 1. 

Problem 3: T(0, Y) = T (a, Y) = T (X, b) = 0, h (X, 0) = 5, Т» = 20, a = 
2, and b — 1. 

Problem 4: Same as Problem 3 but with temperature-dependent conductivity 
К = kee (1.0 + 0.1 T + 0.001 7?). 

In each problem, the residual (see Equation 9.3) is reduced to 107° and no 
underrelaxation is employed. 
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Table 9.1: Problem 1 (/ N — 33, JN — 17). 











Procedure Iterations CPU (s) 
GS 403 121 
ADI 104 44 
Block correction 30 11 
Two-line TDMA 37 22 
Stone (o, = 0.8) 48 22 
Stone (a, = 0.9) 31 16 





Table 9.2: Problem 2 (JN = 17). 














IN — 33 IN—53 
Procedure Iterations СРО (s) Iterations СРО (s) 
GS 299 93 366 138 
ADI 43 22 83 43 
Block correction 24 11 34 22 
Two-line TDMA 17 11 30 17 
Stone (a, = 0.9) 18 11 27 17 





The exact solution for Problems 1 and 2 is given by 


oo 


T 2 [1 — cos(nz ([ 
È nsinh(n л b/a) 





= sin (n z x /a)sinh (n x y/a). (9.50) 
Tp л nzl 

Table 9.1 shows results for Problem 1. The results show the expected trend in 
that the ADI procedure is faster! than the GS procedure. The block correction, 
two-line ТОМА, and Stone’s procedures are considerably faster. On this relatively 
coarse grid (though sufficient for obtaining accurate solutions) Stone's procedure 
is faster when a, = 0.9 than when a, = 0.8. 

Table 9.2 shows results for Problem 2. Here, the a dimension is increased but 
IN still equals 33. The AE and AW coefficients become smaller than those in 
Problem 1. This results in faster convergence in all methods. When ZN = 53, the 
AE and AW coefficients again become bigger and the convergence rate decreases. 

The exact solution to Problem 3 is given by 





T oo 
= EY A, sin(n z x /a) [ e^" ? ?/« =(г trba ga 90у], 
oF п=1 
2h |1—cos(nz)| |h Betta. c MEN E - 
An = = | = | la-e 2 О que ш ] . 


١ Note that the CPU times mentioned in the table depend on the processor used. The quoted times thus 
have no intrinsic relevance; they are mentioned for the purpose of comparison between different 
methods. 


9.5 APPLICATIONS 


Table 9.3: Problem 3 h boundary condition. 








IN — 33, JN — 17 IN = 81, JN = 41 








Procedure Iterations CPU (s) Iterations СРО (s) 
GS 514 160 3,259 3,433 
ADI 129 44 847 1,115 
Block correction 209 TI 159 242 
Two-line ТОМА 63 27 288 472 
Stone (o, = 0.9) 107 39 213 286 





Table 9.4: Problem 4 variable conductivity 
(IN = 81, JN = 41). 











Procedure Iterations CPU (s) 
GS 3,546 4,100 
ADI 893 1,256 
Block correction 133 208 
Two-line TDMA 299 550 
Stone (o, — 0.9) 236 337 





The results are shown in Table 9.3. Here, owing to heat transfer coefficient bound- 
ary condition at Y = 0, both Ту and до are not a priori known. Therefore, in this 
problem with a nonlinear boundary condition, the computer times are greater 
than in Problem 1 for the / = 33 and JN = 17 grid. However, despite the 
nonlinear boundary condition, GS and ADI showed monotonic convergence (not 
shown here) whereas the block correction, two-line TDMA, and Stone's methods 
showed mildly oscillatory convergence. On both grids, Stone's method is attrac- 
tively fast. Incidentally, for such problems, Patankar [53] recommends that conver- 
gence may be checked by overall domain heat balance rather than by the magni- 
tude of the residual. In the present problem, the overall heat balance was satisfied 
within 0.002595. 

Table 9.4 shows results for Problem 4. In this problem, conductivity varies with 
temperature so that coefficients AE, AW, AN, and AS change with iterations. 
Computations are carried out for a very fine grid. The convergence rate now slows 
down compared with the rates mentioned for Problem 3. For this problem, the 
convergence history (R;/ R4) is plotted in Figure 9.4. It is seen that, in all methods, 
the initial CR is high but decreases with increase in /. For the block-correction 
procedure, however, the initial rate is almost maintained throughout the iterative 
process, yielding the overall fastest convergence rate . The overall heat balance was 
satisfied within 0.025%. 
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Figure 9.4. Convergence history for Problem 4. 


EXERCISES 

1. Derive appropriate block-correction equations for lines of constant j. 

2. Starting with Equation 9.16, derive Equations 9.28 and 9.29. 

3. Derive equations of two-line TDMA for lines of constant i and i + 1. 

4. Starting with Equation 9.34, derive Equations 9.39—9.43. 

5. Using the notation of the program LIB2D.FOR in Appendix C, write subrou- 


tines to implement block-correction, two-line TDMA, and Stone's procedures. 


APPENDIX А 


Derivation of Transport Equations 


A.1 Introduction 


In the study of transport phenomena in moving fluids, the fundamental laws of 
motion (conservation of mass and Newton's second law) and energy (first law of 
thermodynamics) are applied to an elemental fluid. Two approaches are possible: 


1. a particle approach or 
2. a continuum approach. 


In the particle approach, the fluid 1s assumed to consist of particles (molecules, 
atoms, etc.) and the laws are applied to study particle motion. Fluid motion is then 
described by the statistically averaged motion of a group of particles. For most ap- 
plications arising in engineering and the environment, however, this approach 15 too 
cumbersome! because the significant dimensions of the flow are considerably big- 
ger than the mean-free-path length between molecules. In the continuum approach, 
therefore, statistical averaging is assumed to have been already performed and the 
fundamental laws are applied to portions of fluid (or control volumes) that contain 
a large number of particles. The information lost in averaging must however be 
recovered. This is done by invoking some further auxiliary laws and by empirical 
specifications of transport properties such as viscosity u, thermal conductivity k, 
and mass diffusivity D. The transport properties are typically determined from ex- 
periments. Notionally, the continuum approach is very attractive because one can 
now speak of temperature, pressure, or velocity at a point and relate them to what 
15 measured by most practical instruments. 

Guidance for deciding whether the particle or continuum approach is to be used 
can be obtained from the Knudsen number Kn = l/L,where lis the mean-free-path 
length between molecules and L is a characteristic dimension (say, the radius of 


! This can be appreciated from Avogadro's number, which specifies that, at normal temperature and 
pressure, a gas will contain 6.022 x 1026 molecules per kmol. Thus in air, for example, there will 
be 1015 molecules/mm?. 
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a pipe) of the flow. When Kn is very small (<10~>), the continuum approach is 
considered valid. In engineering and environmental flows, therefore, the continuum 
approach is adopted. 


Control Volume 

The notion of a controlvolume (CV) is very important in the continuum approach. 
The CV may be defined as a region in space across the boundaries of which matter, 
energy, and momentum may flow; it is a region within which source or sink of the 
same quantities may prevail. Further, it is a region on which external forces may 
act. 

In general, a CV may be large or infinitesimally small. However, consistent with 
the idea of a differential in a continuum, an infinitesimally small CV is considered. 
Thus, when the laws are to be expressed through differential equations, the CV 1s 
located within a moving fluid. Again, two approaches are possible: 


1. a Lagrangian approach or 
2. a Eulerian approach. 


In the Lagrangian approach, the CV is considered to be moving with the fluid 
as a whole. In the Eulerian approach, in contrast, the CV is assumed fixed in space 
and the fluid 1s assumed to flow through and past the CV. Except when dealing 
with certain types of unsteady flows (waves, for example), the Eulerian approach is 
generally used for its notional simplicity. Also, measurements made using stationary 
instruments can be directly compared with the solutions of differential equations 
obtained using the Eulerian approach. 

Finally, it is important to note that the fundamental laws define total flows of 
mass, momentum, and energy not only in terms of magnitude but also in terms of 
direction. In a general problem of convection, neither magnitude nor direction is 
known a priori at different positions in the flowing fluid. The problem of ignorance 
of direction is circumvented by resolving velocity, force, and scalar fluxes in three 
directions that define the space. 

In the derivations to follow, the three chosen directions will be along Cartesian 
coordinates. The derivations are carried out using the continuum approach within a 
Eulerian specification ofthe CV. Figure A.1 shows the considered CV of dimensions 
Axı, Ax», and Axa located at (x1, x2, хз) from a fixed origin. 


A.2 Mass Conservation - Fluid Mixture 
The law of conservation of mass states that 
Rate of accumulation of mass (Mac) = Rate of mass in (Min) 


— Rate of mass out (Mau). 


SHXnTH ЧУЛУО$ О 
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Thus, with reference to Figure A.1, we have 














А д AV 
My = Olean АИ? (A.1) 
01 
Min = Pm Ах Ахз и\ |y, + Pm Ахз Ах из |, 
+ Pm Ах\ AX» из [хз (А.2) 
Mout = Pm AX2 Ахз U1 |ху+Ах + Pm Ахз AXI U2 IA; 
+ Pm Ах Ax? Из | Ax; (A.3) 
Dividing each term by AV (constant) = Ax; Ax» Ax3, we have 
Om 26 (От 01 lxi = ووم‎ И\ lx; tAx,) 
ot Ax, 
33 (Pm U2 les צק‎ Pm u2 |х›-+Ах») 十 (Pm из |xs v Pm u3 |хз-+Ахз) (A.4) 
AX» Ax3 
Now, letting Ах, Ax», Ax3 — 0, this equation can be written as 
д д д 0 
Pm 4 (Om 1) + (Pm U2) 3 (Om Из) — 0. (A.5) 


дї Ox] 0X2 0X3 


Equation A.5 represents the mass conservation law in conservative differential 
form. When the spatial derivatives are expanded, the equation can be written in the 
following nonconservative form: 








дот дот дот, Om ди диз диз 
дол Оба. | OR _ _ ‚ (A6 
ag E aam шык С 
Or 
Pps у (АЛ) 
p; 7A v. | 


For a single-component fluid, the mixture density pm may be replaced by p. 


A.3 Momentum Equations 
Newton's second law of motion states that for a given direction 
Rate of accumulation of momentum (Mom) 
= Rate of momentum in (Momin) 
— Rate of momentum out (Momo) 


+ Sum of forces acting on the CV (Fe). 
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Thus, with respect to Figure A.1, we can write the contributions in the x, direction 
as 


Мота = ur d (A.8) 
01 
Momin = (Pm Ax» Ахз U1) 1/1 |x, + (Om Ахз Axiuz)ui |x 
+ (Pm Ax, Ах из) 1/1 |a, (А.9) 
Mom out = (Pm Ax» Ax3 U1) ui |, cxi + (Om Ax3 Axiu2) ui lx; 
+ (Pm Ax, Ах из) U1 |ху+Ахз› 
1% = — (61 |x, — 61 |д+лху) 4x2 Ахз + (01 |, ло — 02113) Ахз Axı 
+ (T31 lxstAxs — 73115) Ах Ах + pm B1 AV, (A.10) 


where В| is the body force per unit mass, the os are tensile normal stresses, and ts 
are shear stresses. Now, dividing by AV and letting Лх, Ax», Axa — 0, it can be 
shown that 


x1 Direction Momentum Equation 


9) 0 U1) n 960 му U1) i O(Pm U2 U1) " (Оһ изи) 








дї Ox] 0X3 0x3 
66 д(т д(т 
300... RU (э on Bi. (A.11) 
дх\ 0X2 0X3 


A similar exercise in the x» and хз directions will yield 


хә Direction Momentum Equation 





O(m U2) D O(Pm иу U2) 0 9) يوم‎ U2 иә) » 9) Qm U3 U2) 





01 Ox] 0X2 0x5 
д(т д д(т 
_ д(т) d (02) 0 (132) d (A.12) 
02 дх2 0X3 


X3 Direction Momentum Equation 


д(оъ из) Es 960 U1 из) 0 (Pm U2 из) 58 O( يوم‎ U3 из) 








дї Ox] 0X3 0x3 
д(т д(т. д 
_ ĉn) E (123) " (оз) oup (A.13) 
Axl 3x2 0X3 


A few comments on these equations are now in order: 


1. By making use of Equation A.5, the left-hand sides of Equations A.11, A.12, 
and A.13 can be replaced by pm D(u1)/ Dt, Pm Р(из)/ Dt, and pm D(u3)/Dt, 
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respectively. Such equations are called nonconservative forms of momentum 
equations. 


. Equations A.5, A.11, A.12, and A.13 define the fluid motion completely. 


However, they contain twelve unknowns (three velocity components and nine 
stresses). By invoking the rule of complementarity of stresses (1.e., т;; = tjj, i A 
J), the unknowns can be reduced to nine. Still, the number of unknowns exceeds 
the number of available equations (four). 


. A solvable system must have the same number of unknowns and equations. To 


do this, Stokes's stress laws are invoked: 


Stress Laws 





ди; ди; 
i= LN; A.14 
Tij 2 (s. T zi) ( ) 





ди; А 
ف س2 +م- = 0+ ק- = بو‎ (no summation), (А.15) 


where о/ is called the deviatoric stress,” p is pressure (compressive), and и is 
the viscosity of the fluid.? 


. When Equations A.14 and A.15 are substituted in Equations A.11, A.12, and 


A.13, the new equations can be compactly written in tensor notation as 


Momentum Equations uj (i = 1, 2, 3) 








O(Qmui;) , O(Qmu;u;) д ди; др 

г: aud oes а Р‏ רק 
This equation 15 the same as Equation 1.3 in Chapter 1. The three equations‏ 
(A.16) now contain only four unknowns (u1, u2, из, and p). Along with Equa-‏ 
tion A.5, therefore, there are as many unknowns as there are equations.‏ 


In Chapter 1, the deviatoric stress is expressed as 


, ди; 
т @ 


and significance of q is explained in Section 1.5. 

In turbulent flows, the total stress comprises additive contributions of laminar and turbulent com- 
ponents. The turbulent stress t = — Pm и; и, is again represented in the manner of Equation A.14 
by invoking turbulent viscosity ]4,. This is known as the Boussinesq approximation. Then the total 


stress т/?' in a turbulent flow is given by 














"E — = وم‎ €Óij, 


Ou; ди; 2 
tot اوح‎ t i J 
Tij == Tij 25 Tij (u + ш) (s. Ox; ) 3 


where 6;; is the Kronecker delta and e = X и; u;/2isthe kinetic energy of velocity fluctuations. 
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5. Inincompressible flows, the density pm is externally specified as a constant or asa 
function of temperature and the sum of partial densities of mixture components. 
In compressible flow, however, the density is recovered from an equation of 
state. Thus, according to the law of corresponding states, for reduced‘ pressure 
Pr > 0.5 and reduced temperature 7; > 1.5, the density is calculated from the 
perfect gas relation 


_ P _ pM 
ReT RT 





Pm (А.17) 


where M, is the molecular weight of the gas and R, is the universal gas constant. 


A.4 Equation of Mass Transfer 


The conservation of mass for species k of the mixture is stated as 


Rate of accumulation of mass (М ac) — Rate of mass in (Mi in) 
— Rate of mass out (М out) 


+ Rate of generation within CV (Rx). 


To apply this principle, let عم‎ be the density of the species k in a fluid mixture 
of density pm. Similarly, let N; x be the mass transfer flux (kg/m?-s) of species k in 
the i direction. Then 


Мула = Ni Ax2 Axs |x, + 5 Ахз Axi |, + Na Ах Ахә las, 
Мк ош = Ni Ax2 Axa |, кла + Мәк Ахз Ах lx, + Мз Ах Axe Ans 
Dividing each term by AV and letting Axı, Ax», Axa — 0, we get 


0 (М O(N. oN 
(px) 0 (№) R ( 24) ү (М) _ 
01 дх 0x2 0x3 





Ry. (A.18) 


Now, the total mass transfer flux N; д 15 the sum of convective flux due to bulk fluid 
motion (with each species having the same velocity as the bulk fluid) and diffusion 
flux (m; ,). Thus, 


Nik = pr Ui + mi. (A.19) 


^ Reduced pressure and temperature are defined as p, = p/p« and T, = T/ T4, where the suffix cr 
stands for the critical point. 
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Under certain restricted circumstances of interest in this book, the diffusion flux 
15 given by Fick's law of mass diffusion 


m! = - 2 =, (A.20) 


where D (m/s) is the mass diffusivity.? Substituting Equations A.19 and A.20 in 
Equation A.18, we can show that 


0 0 0 0 0 0 0 0 
(о) ү би) (orua) | (ок из) _ 3 (22) + 5( 
01 021 0X2 0x3 Oxy Ox] 


yog 
qp. (2 23 Ro (А21) 
X 


0x3 д 3 
It is a common practise to refer to species א‎ via its mass fraction ор defined as 
k 
a=% У 1 (А22) 
Pm all species 


Using this definition, Equation A.21 can be compactly written as 


Comor) | (оъ иу оқ) _ д ( (+ 


Pm D — 
ot 0x; Ox; 0x; 








(A.23) 


Note that when the mass transfer equation is summed over all species of the 
mixture, the mass conservation equation for the bulk fluid (Equation A.5) is re- 
trieved. This is because $` Rx = 0. That is, when some species are generated by 
a chemical reaction, others are destroyed so that there is no net mass generation in 
the bulk fluid. 


A.5 Energy Equation 


The first law of thermodynamics, when considered in rate form (W/m?), can be 
written as 


E = О сопу A: Осо + و0‎ — W; — Wy, (A.24) 
where 
E = Rate of change of energy of the CV, 
О برو‎ = Net rate of energy transferred by convection, 
Ocond = Net rate of energy transferred by conduction, 
5 The mass diffusivity is defined only for a binary mixture of two fluids 1 and 2 as Di». In mul- 
ticomponent gaseous mixtures, however, diffusivities for pairs of species are nearly equal and a 


single symbol D suffices for all species. Incidentally, in turbulent flows, this assumption of equal 
(effective) diffusivities has even greater validity. 
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О ең = Net volumetric heat generation within the CV, 
W, — Net rate of work done by surface forces, and 


W, = Net rate of work done by body forces. 


Each term will now be represented by a mathematical expression. 


Rate of Change 
The equation for the rate of change is 
„(оње ys y? 
pe oq oe p e Es (A.25) 
01 2 Pm 2 





where e represents specific energy (J/kg), h is specific enthalpy (J/kg), and V? = 
u? + u$ + uż. In the expression for e^, contributions from other forms of energy 
(potential, chemical, electromagnetic, etc.) are neglected. 


Convection and Conduction 
Following the convention that heat energy flowing into the CV 15 positive (and vice 
versa), it can be shown that 


| 9» (Муке) 
Ox; \ 


0 сопу — (А.26) 


where N; is given by Equation 4.19. Now, since all species have the same 
velocity, 


Oeon = — z- У [Nia Ci ~ ри + У?/2у], (4.27) 
J 


where p; is the partial pressure of species k. After some algebra, it can be shown 
that 


osse) (тат) 


сопу — : А.28 
2 0x; 0x; ( ) 





The conduction contribution is given by Fourier's law of heat conduction, so 
that 





. 0qj 0 oT 
Осога د‎ e = ₪ | . (А.29) 
0x; 0x; j 


Volumetric Generation 
Two principal components of volumetric energy generation are chemical energy 
(Ochem) and radiative transfer (Оша). Thus, 


Oven m D das T Ола. (А.30) 
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The chemical energy is positive for exothermic reactions and negative for en- 
dothermic reactions. Evaluation of O dien depends on the chemical reaction model 
employed in a particular situation. The Оа term represents the net radiation ex- 
change between the control volume and its surroundings. Evaluation of this term, in 
general, requires solution of integro-differential equations [48]. However, in certain 
restrictive circumstances, the term may be represented analogous to Oconq with k 
replaced by radiation conductivity К.а as 


160 T? 
a+s ” 


where o 15 the Stefan-Boltzmann constant and a and s are absorption and scattering 
coefficients, respectively. 





Krad = (A.31) 


Work Done by Surface and Body Forces 
Following the convention that the work done on the CV 15 negative, it can be shown 
that 


. д 0 
- = — [оиу + 212 1/2 + T13 Из] + sc [12141 + 02 U2 + T23 U3] 
2 


Ox] 
д 
+ x [73101 + 532 U2 + 03 u3], (А.32) 
дхз 
—Wo = pm (Biuj + Bou» + Взиз). (А.33) 


Adding these two equations and making use of Equations A.11—A.14 can show 
that 


| : р [7 
— (Ws + Wo) = pn 5: EN Би Фуру у, (А.34) 


where /2 /2 is the mean kinetic energy and the viscous dissipation function is given 


by 
ди V? 2) (28) 
Фу = 2 | | --- 一 一 一 一 
(=) T (2 u 0x3 


Dus V^ E п) (s ди» \ 2‏ مق 
一 一 十 一 一 — + — |. (A35‏ — + — 
T (s T =) T 0x3 ч Ox] t 0X2 m 0x3 ( )‏ 


Combining Equations A.24—A.35 therefore leads to 





dome? | Hpmuje?) _ ð | ב‎ (тт) 


01 0x; Ox; 0x; дх; 
р fy? ; 
7 z - p 7 .V + 9% + Ochem + Oma. 


(A.36) 


APPENDIX А. DERIVATION OF TRANSPORT EQUATIONS 


By using Equation A.5, the left-hand side of this equation can be replaced by 
pm D e? / D t. Further, if e° is replaced by enthalpy л (see Equation A.25), Equa- 
tion 4.36 can also be written as 





Pm Dt Ox; 


Dh 9 әт] PNL т!к Dp . | 
= ₪ | == | А + UP, + 5 + О сет + Qrad- 


0x; 0x; 


(A.37) 


For reacting or nonreacting mixtures and under various assumptions listed in 
[33], it is possible to combine energy transfer by conduction and mass diffusion so 
that Equation A.37 may also be written as 

Dh ð km ðh 
Dt 0 Ox; 





D j А 
Pm | +p, + ₪2 tOdO A 


Cpm дх; 
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1D Conduction Code 


B.1 Structure of the Code 


The 1D conduction code is divided into two parts: 


1. a user part containing files COMID.FOR and USER1D.FOR and 
2. alibrary part containing file LIBID.FOR. 


The user part is problem dependent. Therefore, the two files in this part are 
used to specify the problem to be solved. In contrast, the library part is problem 
independent. Thus, the LIBID.FOR file remains unaltered for a// problems. In this 
sense, the library part may be called the solver whereas the user part may be called 
the pre- and postprocessor. 

This structure is central to creation of a generalised code. To execute the code, 
USERID.FOR and LIB1D.FOR files are compiled separately and then linked before 
execution. The COMID.FOR is common to both parts and its contents are brought 
into each subroutine or function via the "INCLUDE" statement in FORTRAN. 
Variable names starting with I, J, K, L, M, and N are integers whereas all others are 
real by default. The list of variable names with their meanings 15 given in Table B.1. 
The listings of each file are given at the end of this appendix. 


B.2 File COM1D.FOR 


In this file, logical, real, and integer variables are included. The PARAMETER 
statement is used to specify the maximum array dimension IT and values of л, 
GREAT, and SMALL. The latter are frequently required for generalised coding. The 
variable names are given in a labelled COMMON as in COMMON/BOUND/..., 
where BOUND is the label. Here, variables of relevance to boundary conditions 
are included. If required, the user may add more variable names or arrays for the 
specific problem at hand as shown at the bottom of the file. 
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Table B.1: List of variables 1D for conduction code. 











Variable Meaning 

ACF Array containing cross-sectional area (m?) at cell face w 
AE, AW Array containing east and west coefficients 

AL Domain length (m) 

AP Array containing coefficient of variable Фр 
COND Array containing conductivity (W/m-K) at node P 
CONDREF Reference conductivity 

CC Convergence criterion 

DELT Time step (s) 

DUMI,DUM2 Dummy arrays 

FCMX Maximum absolute fractional change 

GAUSS Logical — refers to Gauss-Seidel method 

GREAT Parameter having a large value 1030 

HISPEC Logical — refers to h-boundary condition at node 1 
НВ1 Heat transfer coefficient (W/m?-K) at node 1 
סופת‎ Heat transfer coefficient at node 1 at old time 
HBN Heat transfer coefficient at node N 

HBNO Heat transfer coefficient at node N at old time 
HNSPEC Logical — refers to h-boundary condition at node N 
HPREF Heat transfer coefficient at any x 

HPREFO Heat transfer coefficient at any x at old time 
ISTOP STOP index — used in unsteady problems 

IT Parameter containing array size 

ITER Iteration counter 

ITERMX Maximum number of allowable iterations 

N Total number of nodes 

NTIME Current time counter 

PERIM Array containing perimeter (m) at any x 

PI Value of т 

PSI Variable V for choosing explicit/implicit scheme 
QISPEC Logical — refers to g-boundary condition at node 1 
QBI Heat flux (W/m?) at node 1 

ОВІО Heat flux at node 1 at old time 

QBN Heat flux at node N 

QBNO Heat flux at node N at old time 

QNSPEC Logical — refers to q-boundary condition at node N 
RHO Array for density (kg/m?) 

RP Relaxation parameter a 

SMALL Parameter having a small value 10—30 

SP Array containing Sp 

SPH Array containing specific heat (J/kg-K) at node P 
SPHREF Reference specific heat 

STAB Array for storing boundary coefficients 

STEADY Logical — refers to steady-state calculation 

SU Array containing Su 


(continued) 
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Table B.1 (continued) 














Variable Meaning 

T Array containing temperature (^C or K) 

Tl Temperature at node 1 

TIO Temperature at node 1 at old time 

TISPEC Logical — refers to T-boundary condition at node 1 
THOMAS Logical — refers to ТОМА 

TIMEMX Maximum allowable time 

TINF Temperature 75; 

TINFO Temperature T% at old time 

TINFI Temperature Т» near node 1 

TINFN Temperature 74; near node № 

TINF1O Temperature T% near node 1 at old time 

TINFNO Temperature 7» near node N at old time 

TN Temperature at node N 

TNO Temperature at node N at old time 

TNSPEC Logical — refers to T-boundary condition at node № 
TO Array containing temperature at old time 

TTIME Total current time 

UNSTEADY Logical — refers to unsteady-state calculation 

VOL Array containing cell volume (m?) 

X Coordinate of node P (m) 

XCELL Logical — refers to cell-face coordinate specification 
XCF Coordinate of cell face at w 

XNODE Logical — refers to node coordinate specification 





B.3 File USER1D.FOR 


This is the main control file at the command of the user. The first routine 
PROGRAM ОМЕР is ће command routine from where subroutine MAIN is called. 
The latter 15 the first subroutine of the LIBID.FOR file. When all operations are 
completed, PROGRAM ONED calls the RESULT subroutine, which is a part of 
the USERID.FOR file. 

Following the listing of the COMID.FOR file, listings of two USERID.FOR 
files are given. They correspond to the two solved problems in Chapter 2. The reader 
15 advised to refer to these files as well as to Table 8.1 to understand the description 
of each routine in USERID.FOR file. 


BLOCK DATA This routine at the end of the USERID.FOR file specifies all the 
problem-dependent data such as properties, boundary conditions, and other control 
parameters. It 1s assumed that all data are given in consistent units. Here, SI units 
are used except for the grid data XCF or X, which are dimensionless. The physical 
coordinates in meters are then evaluated by multiplying by AL (the domain length) 
in PROGRAM ONED. Dimensionless specification provides better appreciation of 
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nonuniformity (if any) in the specified grid. When a nonuniform grid is specified, 
it is advisable to ensure that the ratio of two consecutive cell sizes does not 
exceed 2. 


Subroutine INIT In this routine, an initial guess for T at ITER — 0 in a steady- 
state problem or at ¢ = 0 in an unsteady-state problem is given. In a steady-state 
problem, the number of iterations (and hence the computer time) greatly depends 
on how close the initial guess is to the final converged solution. In the fin prob- 
lem (Problem 2, Chapter 2), a linear temperature profile is given with Т1 = 225 
(given) and TN — 205 (which is guessed) although the converged solution is 
nonlinear. 


Subroutine NEWVAL In this routine, boundary conditions at a new time (if dif- 
ferent from the initial time) are specified. 


Subroutine PROPS In this routine, thermal conductivity and specific heat are 
given. They may be functions of x, t, or T. The density is of course constant in our 
formulation (see Chapter 2). 


n 


Subroutine SORCE A problem-dependent source (q 
It may be a function of T, x, and/or У. 


AV )is given in this routine. 


Subroutine INTPRI This routine prints the converged solution at the current time 
step. The routine can also be used to store current values in dummy arrays DUM1 
and DUM2 for later printing or plotting. Here, the STOP condition may be given. 


Functions HPERI, AREA, and PERI These function routines calculate heat trans- 
fer coefficient at node I and area and perimeter at location X or XCF as per the 
specifications in their arguments. Note that heat transfer coefficients may be func- 
tions of T, x, and/or f. 


Subroutine RESULT In this last routine, the converged solution 15 printed along 
with evaluation and printing of derived parameters. For example, in Problem 2 
of Chapter 2, it is of interest to calculate heat loss from the fin as well as fin 
effectiveness and compare them with the exact solutions. This routine can also be 
used to create files containing results for postprocessing using graphics packages 
such as GNUPLOT or GRAPHER. 


B.4 File LIB1D.FOR 


Subroutine MAIN АП subroutines in the code are called from this subroutine. 
First, subroutines GRID and INIT are called. Then, starting with TTIME — 0, an 
outer DO loop (3000) is initiated to begin calculations at a time step NTIME and 
TTIME 15 incremented by DELT. Subroutine NEWVAL is called to set boundary 
conditions at a new time step. Then, iterations are carried out in an inner loop 
(1000) in which subroutines PROPS, COEF, SORCE, BOUND, and SOLVE are 
called in turn. The SOLVE routine returns the value of FCMX. If this value is less 
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than 1074, the inner loop is exited; otherwise a further iteration is carried out by 
returning to “1000 ITER = ITER + 1.” In a steady-state problem, a minimum of 
two iterations are performed. If the problem is steady, there is no need to carry out 
calculations at a new time step and, therefore, the outer loop is also now exited and 
control is transferred to statement “5000 CONTINUE.” If the problem is unsteady, 
subroutines UPDATE and INTPRI are called and the outer loop continues. 


Subroutine GRID In this routine, depending on logical XCELL or XNODE, co- 
ordinates XCF or X are set and area, perimeter, and cell volume are calculated and 
printed. It is always desirable to check these specifications in the output file OO 
(see PROGRAM ONED). 


Subroutine COEF In this routine, coefficients AE and AW are evaluated. Note 
that cell-face conductivities are evaluated by harmonic mean. 


Subroutine BOUND This routine implements specified boundary conditions at 
I = 1 and I = М. The implementation 15 carried out by updating Su and Sp at 
near-boundary nodes as explained in Chapter 2. 


Subroutine SOLVE In this routine, Su and Sp are further updated if the problem 
is unsteady. Also, if the stability criterion is violated, a warning message 15 printed. 
AP and Su are further augmented to take account of the underrelaxation factor. 
Thus, all coefficients are ready to solve the discretised equations. This is done by 
GS or by TDMA depending on the user choice specified in the BLOCK DATA 
routine. 


Subroutine UPDATE This routine sets all new variables to their ^OLD" 
counterparts. 


Subroutine PRINT The arguments of this general routine carry the variable F and 
its logical name “HEADER?” specified from point-of-call. The routine is written 
to print six variables on a line. If N > 6, the next six variables are printed on the 
next line, and so on. The values are printed in E-format but the user may change to 
F-format, if desired. 


COMMON BLOCK COM1D.FOR 

C *** THIS IS COMMON BLOCK FOR 1-D CONDUCTION PROGRAM 
PARAMETER( IT=50, PI=3.1415927, SMALL=1E-30, GREAT-1E30) 
LOGICAL T1SPEC,H1SPEC,Q1SPEC, TNSPEC, HNSPEC, QNSPEC 
LOGICAL STEADY , UNSTEADY , GAUSS, THOMAS , XCELL, XNODE 
COMMON/BOUNDS/T1SPEC ,H1ISPEC ,QISPEC, TNSPEC ,HNSPEC ,QNSPEC 
COMMON/STATE/STEADY , UNSTEADY , GAUSS , THOMAS , XCELL, XNODE 
COMMON/CVAR/TCIT),TOCIT), SPHCIT), CONDCIT) , RHOCIT) 
COMMON/COORDS/XCIT),XCFCIT),ACFCIT),PERIMCIT),VOLCIT),AL 
COMMON/COEFF/APCIT) , AECIT) , ANC IT) , SUCIT), SPCIT), STABCIT) 
COMMON/CONTRO/ITERMX,N,RP,RSU, FCMX,CC,ISTOP 
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COMMON/CTRAN/DELT,TIMEMX,MXSTEP, PSI, ITER, NTIME,TTIME 
COMMON/CPROPS / CONDREF , RHOREF , SPHREF 
COMMON/CDAT1/T1,TN,QB1,QBN,HB1,HBN,TINFI,TINFN,HPREF,TINF 
COMMON/CDAT1/QB10,QBNO,HB10,HBNO,TINFIO,TINFNO,HPREFO,TINFO 
COMMON/CDUM/DUM1 (5000) , DUM2(5000) , DUM3(5000) 

C ADDITIONAL PROBLEM-DEPENDENT VARIABLES 

C VARIABLES FOR PROB2 
COMMON/CP2/BREADTH, THICK 

C VARIABLES FOR PROB3 
COMMON/CRADS/R1,R2,R3 


USER File for Problem 1 - Chapter 2 

C 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 
PROGRAM ONED 
INCLUDE 'COMID.FOR' 


C 类 大 大 大 大 大 大 大 大 类 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 


OPEN(6,FILE=’00°) 


WRITE(6 ж)” 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 
, 


WRITEC6,*)' ADHESION OF PLASTIC SHEETS - PROBI-CHAPTER2' 
WRITE(6,*)' אכ אכ אכ אכ אאא אא אא אא‎ RRR RRR I جل‎ 3 k k אי אי אי جل אי‎ К КККК ККК? 
DO 1 I=1,N 
1 XCF(I)=XCF(I)*AL 
CALL MAIN 
CALL RESULT 
STOP 
END 
) ххх IK جل جل جلا‎ RIK جل جل جلا‎ IK KK IK KIKI IK IK AIK IKK IK AIK I 
SUBROUTINE INIT 
INCLUDE ’COM1D. FOR’ 
) ххх A K جل جل جلا‎ RIK جل جل جلا‎ IK IKK IK K جل جل جل‎ KK IK AIK IKK جل جل‎ KKK Kk 
C GIVE INITIAL GUESS AT TIME-0.0 OR AT ITER-0 FOR STEADY STATE 
TIN-30 
DO 1 I=1,N 
TCI)-30 
IFCI.EQ.1.0R.I.EQ.N)TCI)-250 
1 CONTINUE 
RETURN 
END 
) ххх кк КК جل جل جلا אד د‎ К КККК ККК جل‎ IKK IKK IK IKK جل جل‎ AIK IK 
SUBROUTINE NEWVAL 
INCLUDE 'COMID.FOR' 


C 类 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 类 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 
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С SET NEW VALUES OF HB1,HBN,QB1,QBN,TINF1,TINFN OR SOURCES 
RETURN 
END 
(CR IK КК IK IK IKK جل جل جل‎ ККК جل جل‎ IK IIR IKK IK IKK IK AIK 
SUBROUTINE PROPS 
INCLUDE ’COM1D.FOR’ 
жак IK IK III جلا جل אל אכ‎ IIIT TK IKI جل אכ جلا‎ TK جلا جلا جل‎ IITA % جلا ل جل جل جل‎ A A ل جل‎ 
C COND(I) AND SPH(I) ARE DEFINED AT NODE P 
DO 1 I=1,N 
RHO( I )=RHOREF 
COND(CI)-CONDREF 
1 SPHCI)-SPHREF 
RETURN 
END 
(CR IK КККК ККК جلا‎ IKK IK IKK IK IKK IKK IK IKK IK AIK 
SUBROUTINE SORCE 
INCLUDE 'COMID.FOR' 
(CR IR КК IK IK IKK جل جل‎ IIR IK KIKI جلا‎ IKK IK IKK IK AK 
C FORM PROBLEM DEPENDENT SOURCE TERM INCLUDING SU AND SP 
DO 1 I=2,N-1 
50)1(=50) 0 
1 CONTINUE 
RETURN 
END 
(CR I جد‎ КККК КК جل جل جلا د‎ RIK IKK IK IKK IK AIK جلا جلا‎ IK AIK 
SUBROUTINE INTPRI 
INCLUDE ’COM1D.FOR’ 
CHARACTER*20 HEADER 
C 大 大 大 大 大 大 大 火炎 大 大 大 大 火炎 大 类 大 大 大火 大 大大 火炎 类 大 大 大 大 火炎 大 大 大 大 火炎 类 大 大 大大 大 大 大 大 大 
WRITEC6,*)' TIMESTEP = ',NTIME,' TOTAL TIME = ',TTIME 
C PRINT TEMPERATURES AT THE CURRENT STEP 
HEADER-' TEMP "' 
CALL PRINT(T,HEADER) 
C STORE MID-POINT TEMPERATURE 
DUM1(NTIME)=T(4) 
C GIVE STOP CONDITION 
IMID=4 
IFCTCIMID).GT.140)ISTOP-1 
RETURN 
END 


APPENDIX B. 1D CONDUCTION CODE 


C 类 大 大 大 大 大 大 大 大 大 大 类 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 


С FUNCTION ROUTINES 
(RIK جل جل جلا د جد‎ RIK جل جلا‎ RIK جل جل جلا‎ IK KIKI KK IK AIK IKK א 3/0 جل جل‎ kk 
FUNCTION HPERI(II) 
INCLUDE 'COMID.FOR' 
C H AT PERIMETER 
I-II 
HPERI=HPREF*0.0+X(1)*0.0+T(1)*0.0 
RETURN 
END 


FUNCTION AREA(XX) 

INCLUDE ’COM1D. FOR’ 
C AREA OF CROSS-SECTION 

AREA=1 .0+0 .0*XX 

RETURN 

END 


FUNCTION PERI(XX) 
INCLUDE 'COMID.FOR' 
C PERIMETER 
PERI-O*XX 
RETURN 
END 
C 类 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 类 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 
SUBROUTINE RESULT 
INCLUDE 'COMID.FOR' 
CHARACTER*20 HEADER 
G 类 大 大 大 大 大 大 大 大 类 大 大 大 大 大 大 大 大 大 大 大 大 大 类 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 
HEADER-' FINAL-TEMP * 
CALL PRINT(T,HEADER) 
HEADER-' X(I) ' 
CALL PRINT(X,HEADER) 
HEADER-' XCF(I) ' 
CALL PRINT(XCF,HEADER) 
C EXTRACT PROBLEM DEPENDENT PARAMETERS IF ANY 
WRITE(6,*)' PRINT MID-POINT TEMPERATURE" 
DO 1 I=1,NTIME 
TT=FLOAT(1)*DELT 
1 WRITE(6,*) TT, DUM1(T) 
TNOW-DUM1 (NTIME) 
TOLD-DUMI (NTIME-1) 
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TT-FLOAT(NTIME-1)*DELT 
TIME=(140-TOLD)/(TNOW-TOLD)*DELT+TT 
WRITEC6,*)' TIME FOR ADHESION = ',TIME 
RETURN 
END 
) 大 大 大 大 大 大 大 火炎 大 大 大 大 火炎 类 大 大 大大 火炎 大大 大 大 火炎 类 大 火炎 大 大 大 大 火炎 大 类 大 大 大火 大火 大 大 大 
BLOCK DATA 
INCLUDE 'COMID.FOR' 
(CR IR КККК КК КККК К К IK AIK IIR IKK IK IKK IK AIK 
C LOGICAL DECLARATIONS 
DATA STEADY , UNSTEADY ,GAUSS,THOMAS/.FALSE.,.TRUE.,.TRUE.,.FALSE./ 


C CONTROL PARAMETERS 
C FULLY IMPLICIT (PSI-1),FULLY EXPLICIT (PSI=0),SEMI IMPLICIT (0<Р51<1) 
DATA PSI,DELT,MXSTEP, ITERMX,RP,CC/0.0,10,10000,500,1.0,1E-5/ 


C BOUNDARY SPECIFICATION 

DATA T1SPEC,QISPEC,HISPEC/.TRUE.,2*.FALSE./ 

DATA TNSPEC,QNSPEC,HNSPEC/ . TRUE. ,2* .FALSE./ 

DATA T1,TN,QB1,QBN,HB1,HBN/250.0,250.0,0.0,0.0,0.0,0.0/ 
C DATA TINF, TINF1, TINFN,HPREF/25,150,250,12.0/ 

DATA CONDREF,RHOREF,SPHREF/0.25,1300,2000.0/ 


C GRID SPECIFICATION 
DATA XCELL,XNODE/.TRUE.,.FALSE./ 
DATA N,AL/7,0.01/ 
DATA XCF/0.0,0.0,0.2,0.4,0.6,0.8,1.0,43*1.0/ 
END 


USER File for Problem 2 — Chapter 2 

С 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 
PROGRAM ONED 
INCLUDE 'COMID.FOR' 


С 大 大 大 大 大 大 大 类 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 类 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 


OPEN(6, FILE=*00’) 

WRITE(6,*)’ 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 类? 
WRITE(6,*)” RECTANGULAR FIN - PROB2-CHAPTER2' 

WRITE(6,*)” SOLVE BY GS AND TDMA’ 


WRITE(6 *(' 类 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 类? 
, 


DO 1 I-1,N 
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1 XCF(1)=XCF(1)*AL 
CALL MAIN 
CALL RESULT 
STOP 
END 
C 类 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 
SUBROUTINE INIT 
INCLUDE 'COMID.FOR' 
类 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 类 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 
C GIVE INITIAL GUESS AT TIME-0.0 OR AT ITER=0 FOR STEADY STATE 
BB-(TN-T1)/AL 
00 1 I=1,N 
1 T(1)=T1+BB*X (1) 
RETURN 
END 
C 类 大 大 大 大 大 大 大 大 类 大 大 大 大 大 大 大 大 大 大 大 大 大 类 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 
SUBROUTINE NEWVAL 
INCLUDE 'COMID.FOR' 
C 类 大 大 大 大 大 大 大 大 大 大 大 大 大 大 类 大 大 大 大 大 大 大 类 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 
C SET NEW VALUES OF HB1,HBN,QB1,QBN,TINF1,TINFN OR SOURCES 
RETURN 
END 
6 类 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 
SUBROUTINE PROPS 
INCLUDE 'COMID.FOR' 
C 类 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 
C COND(I) AND SPH(I) ARE DEFINED AT NODE P 
00 1 I=1,N 
COND(I)-CONDREF 
1 SPH(I)-SPHREF 
RETURN 
END 
Ü 类 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 
SUBROUTINE SORCE 
INCLUDE 'COMID.FOR' 
类 大 类 大 大 大 大 大 大 大 大 类 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 类 
C FORM PROBLEM DEPENDENT SOURCE TERM INCLUDING SU AND SP 
00 1 I-2,N-1 
TERM-HPERI(I)*PERIMCI)*(XCFCIE1)-XCFCD) 
SUCI)-SU(I)*TERM*TINF 
SP(I)-SP(I)*TERM 
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CONTINUE 
RETURN 
END 
אי אל אכ אכ ل אכ جلا جلا جلا جلا جل جلا جل אכ אכ אכ אל אכ אכ אל جل אל אל אל جل אל جل جل جل جل جل אל جل جل جل جل جل جلا جلا جل جلا جلا جلا جلا جلا جلا جلا جلا אד‎ 
SUBROUTINE INTPRI 
INCLUDE 'COMID.FOR' 
جلا جلا جلا جلا جلا جلا جلا אד‎ hehe hehe א אל אכ لا ل אכ جلا جلا جلا جلا جل جلا جل אכ אכ אכ אל جل جل אל جل جل جل אל جل אל אל אל جل جل جل جل‎ 
RETURN 
END 


大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 


FUNCTION ROUTINES 
类 火炎 大 火炎 炎炎 大 大 大业 类 类 大 大 大大 类 大 大 大 大 类 类 大 大 类 类 类 类 大 大 类 大 类 大 大 大 大大 大大 大 大 大 大火 大 
FUNCTION HPERI(II) 
INCLUDE 'COMID.FOR' 
H AT PERIMETER 
I-II 
HPERI=HPREF+X(1)*0.0+T(1I)*0.0 
RETURN 
END 
FUNCTION AREACXX) 
INCLUDE 'COMID.FOR' 
AREA OF CROSS-SECTION 
AREA-BREADTH*THICK-*O.0*XX 
RETURN 
END 
FUNCTION PERI(XX) 
INCLUDE 'COMID.FOR' 
PERIMETER 
PERI-2*BREADTH-*0O אא*0.‎ 
RETURN 
END 
类 火炎 类 大 大 炎炎 大大 类 类 类 类 大 大 类 类 类 大大 大 大 类 类 大 大 大 大业 大大 大 类 大 类 大 大 大 类 类 类 大 大 大 大 大火 大 
SUBROUTINE RESULT 
INCLUDE 'COMID.FOR' 
CHARACTER*20 HEADER 
جلا جلا جل جل حل جا‎ кк II hehe ke جل‎ IIIT אל‎ he جل جل جلا جلا جل جل جل‎ IK ke ل جلا‎ hehe ل جل جل جل جلا‎ de ККК 
HEADER-' FINAL-TEMP ' 
CALL PRINT(T,HEADER) 
EXTRACT PROBLEM DEPENDENT PARAMETERS IF ANY 
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C EXACT SOLUTION 
AM-SQRT(CHPREF*PERIM(2)/CONDREF/ACF(2)) 
QLOSS-SQRT(CHPREF*PERIM(2)*CONDREF*ACF(2)) *CTI-TINF)*TANHCAM*AL) 
EFF=TANH(AM*AL) / (AM*AL) 

WRITE(6,*)’ EXACT SOLUTION 
WRITE(6,*)’ 01055 = ’,QLOSS,’ EFF = ',EFF 

C NUMERICAL SOLUTION 
QLOSS-ACF(2)*CONDREF*(TC1)-TC2))/(XC2) -XC1)) 
QMAX-2*AL*BREADTH*HPREF*(TC1)-TINF) 
EFF-QLOSS/QMAX 
WRITE(6,*)' NUMERICAL SOLUTION 


WRITE(6,*)' QLOSS = ',QLOSS,' EFF = ',EFF 
RETURN 
END 

) ххх RIK IK RIK IK جل جل جلا‎ К-К ККК ККК جل‎ IKK IK AIK IKK IK AIK IK 
BLOCK DATA 


INCLUDE 'COMID.FOR' 
) хх кк IK جل جل جلا‎ IK جل جل جلا‎ IK КК جلا‎ IKK IK К-К ККК IK AIK IK 
C LOGICAL DECLARATIONS 
C *** DECLARE STEADY OR UNSTEADY AND SOLUTION METHOD 
DATA STEADY ,UNSTEADY , GAUSS, THOMAS/ . TRUE. , .FALSE. , . TRUE. , . FALSE. / 


C CONTROL PARAMETERS 
C FULLY IMPLICIT(PSI-1),FULLY EXPLICIT(PSI-O),SEMI IMPLICIT (0<Р51<1) 
DATA PSI,DELT,MXSTEP, ITERMX,RP,CC/1.0,5,100,500,1.0,1E-5/ 


C BOUNDARY SPECIFICATION 
DATA TISPEC,Q1SPEC,HISPEC/.TRUE.,2*.FALSE./ 
DATA TNSPEC,QNSPEC,HNSPEC/.FALSE.,.TRUE.,.FALSE./ 
DATA T1,TN,QB1,0BN,HB1,HBN/225.0,205.0,0.0,0.0,0.0,0.0/ 
DATA TINF,TINFI,TINFN,HPREF/25,0.0,0.0,15.0/ 
DATA CONDREF,RHOREF,SPHREF/45.0,1.0,1.0/ 


C GRID SPECIFICATION 
DATA XCELL,XNODE/.TRUE.,.FALSE./ 
DATA N,AL/7,0.02/ 
DATA XCF/0.0,0.0,0.2,0.4,0.6,0.8,1.0,43*1.0/ 
C PROBLEM DEPENDENT PARAMETERS (IF ANY) 
DATA BREADTH, THICK/0.2,0.002/ 
END 
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USER File for Problem 3 - Chapter 2 


С 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 


С THIS IS USER FILE USER1D.FOR - А. М. DATE 

C ххх ккк IK IK IKK IK AIK IKK IK IKK IK AIK IKK IK AIK 
PROGRAM ONED 
INCLUDE 'COMID.FOR' 


6 大 大 大 大 大 大 大 类 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 


OPEN(6,FILE-'00*) 
WRITE(6,*)’ kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk? 
WRITE(6,*)' ANNULAR COMPOSITE FIN - PROB3-CHAPTER2' 
WRITE(6,*)' SOLVE BY TDMA’ 
WRITE(6,*)’ 类 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 类? 
DX=(R3-R1)/FLOAT(N-2) 
XCF(1)=0 
XCF(2)=0.0 
DO 1 I-3,N 
1 ХСЕ(1)=ХСЕ(1-1) + DX 
CALL MAIN 
CALL RESULT 
STOP 
END 
С 大 大 大 大 大 大 大 类 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 
SUBROUTINE INIT 
INCLUDE 'COMID.FOR' 
C 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 
C GIVE INITIAL GUESS AT TIME=0.0 OR AT ITER=0 FOR STEADY STATE 
T(1)=T1 
T(N)=TN 
RETURN 
END 
С 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 
SUBROUTINE NEWVAL 
INCLUDE 'COMID.FOR' 
大 大 大 大 大 大 大 类 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 
C SET NEW VALUES OF HB1,HBN,QB1,QBN,TINF1,TINFN OR SOURCES 
RETURN 
END 
C 大 大 大 大 大 大大 类 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 类 大 
SUBROUTINE PROPS 
INCLUDE 'COMID.FOR' 


С 大 大 大 大 大 大 大 类 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 
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C COND(I) AND SPH(I) ARE DEFINED AT NODE P 
RR=R2-R1 
DO 1 I=1,N 
IF(XCI).LT. RR)COND(I)-200 
IF(XCI).GT. RR)COND(I)-40 
1 SPH(T)=SPHREF 
RETURN 
END 
(CR RIK IK جل جل جلا‎ IK IK RIK جل جل جلا‎ IK AIK IKK IK AIK IKK IK AIK IK 
SUBROUTINE SORCE 
INCLUDE 'COMID.FOR' 
(CR кк RIK جل جل جلا‎ IK KK IK AIK IKK IK AIK IKK IK KIKI 
FORM PROBLEM DEPENDENT SOURCE TERM INCLUDING SU AND SP 
DO 1 I=2,N-1 
TERM=HPERI(1)*PERIM(T)*(XCF(I+1)-XCF(1)) 
SUCT)=SUCT)+TERM*TINE 
SP(I)=SP(1)+TERM 
1 CONTINUE 
RETURN 
END 
(CR RIK K K جل جل جلا‎ RIK IK RIK جل جل جلا‎ IK AIK IKK IK AIK IKK IKK א אי‎ 
SUBROUTINE INTPRI 
INCLUDE 'COMID.FOR' 
) хх кк جل جل‎ RIK جل جل جلا‎ IK جل جل جلا‎ IK KIKI אי‎ КК אי جل جل‎ IKK جل جل‎ AIK IK 
RETURN 
END 


类 大 大 大 大 大 大 大 大 类 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 


FUNCTION ROUTINES 
(CIR IK جل جل جلا اد د‎ A K جل جل جلا‎ IK جل جل جلا‎ IK AIK IKK IK אי جل جل‎ IK KAKA IKI 
FUNCTION HPERI(II) 
INCLUDE 'COMID.FOR' 
C H AT PERIMETER 
I-II 
HPERI=HPREF+X(1)*0.0+T(1)*0.0 
RETURN 
END 


C» 


FUNCTION AREACXX) 
INCLUDE 'COMID.FOR' 

C AREA OF CROSS-SECTION 
AREA-2*PI*(RIT-XX)*THICK 
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RETURN 
END 


FUNCTION PERI(CXX) 
INCLUDE 'COMID.FOR' 

C PERIMETER 
PERI=4*PI*(R1+XX) 

RETURN 
END 

C ххх IK IK IK IKK IK RIK IKK IK IIR IK AIK IKK IK AIK 
SUBROUTINE RESULT 
INCLUDE 'COMID.FOR' 

CHARACTER*20 HEADER 

(CR IK К IK IK КК ККК ККК جل‎ KIKI جل جلا‎ IKK IK IKK IK AIK 
HEADER-' FINAL-TEMP ' 

CALL PRINT(T,HEADER) 

C EXTRACT PROBLEM DEPENDENT PARAMETERS IF ANY 
QLOSS=ACF(2)*COND(1)*(T(1)-T(2))/(X(2)-X(1)) 
QMAX=2*PI*(R3**2-R1**2) *HPREF*(T(1)-TINF) 
EFF=QLOSS/QMAX 
WRITEC6,*)' NUMERICAL SOLUTION : 
WRITEC6,*)' 01055 = ’,QLOSS,’ EFF = ',EFF 

C PLOT TEMP PROFILE 

OPEN(12,FILE=’TEXT3.DAT’ ) 
WRITE(12,*)’TITLE = ANNULAR FIN’ 
WRITE(12,*) VARIABLES = XX ТТ, 
WRITE(12,*)’ZONE T = ZONE1, I = ',א,'‎ ,F = POINT’ 
DO 51 J=1,N 
51 WRITE(12,*)X(J),T(d) 
CLOSE(12) 
RETURN 
END 

(RR I К IK IK IKK IK RIK IKK IK KKK IK AIK IKK IK AIK 
BLOCK DATA 
INCLUDE ’COM1D.FOR’ 

(CR IK IK К IK IK IKK IK AIK IKK IK АСА САСА 

C LOGICAL DECLARATIONS 

C *** DECLARE STEADY OR UNSTEADY AND SOLUTION METHOD 

DATA STEADY ,UNSTEADY , GAUSS, THOMAS/.TRUE.,.FALSE.,.FALSE.,.TRUE./ 


C CONTROL PARAMETERS 
C FULLY IMPLICIT (PSI=1),FULLY EXPLICIT (PSI=0),SEMI IMPLICIT (0<Р51<1) 
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DATA PSI,DELT,MXSTEP, ITERMX,RP,CC/1.0,5,100,500,1.0,1E-5/ 


C BOUNDARY SPECIFICATION 
DATA TISPEC,Q1SPEC,HISPEC/.TRUE.,2*.FALSE./ 
DATA TNSPEC,QNSPEC,HNSPEC/.FALSE.,.TRUE.,.FALSE./ 
DATA T1,TN,QB1,0BN,HB1,HBN/200.0,150.0,0.0,0.0,0.0,0.0/ 
DATA TINF,TINF1,TINFN,HPREF/25,0.0,0.0,20.0/ 
DATA CONDREF,RHOREF,SPHREF/1.0,1.0,1.0/ 


C GRID SPECIFICATION 
DATA XCELL,XNODE/.TRUE.,.FALSE./ 
DATA N/8/ 

C PROBLEM DEPENDENT PARAMETERS (IF ANY) 
DATA THICK/0.001/ 
DATA R1,R2,R3/0.0125,0.025,0.0375/ 
END 


Library File LIB1D.FOR 


С 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大大 大 大 大 大 大 大 大 大 大 大 大 


C THIS IS LIBRARY LIBID.FOR - А. W. DATE 

С хх кк جل جل‎ RIK IK جل‎ К-К جل جل جل جلا‎ КК جل جلا‎ IKK IK KIKI KK جل جل‎ AIK IK 
SUBROUTINE MAIN 
INCLUDE 'COMID.FOR' 


C 类 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 类 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 


WRITE(6,*)’ kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk? 


IF(THOMAS)WRITE(6,*)’ SOLUTION BY TDMA’ 
IF(GAUSS)WRITE(6,*)' SOLUTION BY GAUSS SIEDEL' 
WRITE(6,*)"' 类 大 大 大 大 大 大 大 大 类 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 ?， 
C*** CALCULATE CELL FACE COORDINATES, AREA AND VOLUME. 
CALL GRID 
C*** = SPECIFY INITIAL TEMPERATURE DISTRIBUTION (USER FILE) 
CALL INIT 
ISTOP-0 
IFCSTEADY)PSI-1.0 
IF(UNSTEADY ) THEN 
DO 101 I=1,N 
101 TO(I)=T(I) 
IF(PSI.EQ.0.0)ITERMX=0 
ENDIF 
TTIME=0.0 
С*** BEGIN TIME STEP 
TIMEMX=MXSTEP*DELT 
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DO 3000 NTIME-1,MXSTEP 
TTIME-TTIME*DELT 

C SET NEW VALUES AT THE BOUNDARY OR SOURCES (USER FILE) 
IF(UNSTEADY)CALL NEWVAL 

6*** BEGIN ITERATIONS AT A TIME STEP 
IF(PSI.NE.0.0)WRITE(6,*)' ITER FCMX ' 
ITER-0 

1000 ITER=ITER+1 

C CALL PROPERTIES ROUTINE (USER FILE) 
CALL PROPS 

C*** — CALCUALTE THE COEFFICIENTS AW AND AE 
CALL COEF 

C*** CALCULATE THE SOURCE TERMS SU AND SP (USER FILE) 
CALL SORCE 

C*** SPECIFY THE BOUNDARY CONDITIONS 
CALL BOUND 

C*** SOLVE THE DISCRETISED EQUATION 
CALL SOLVE 

C*** WRITE RESIDUAL, CHECK CONVERGENCE 
WRITE(6,500) ITER, FCMX 
IF(ITER.GT.ITERMX) GO TO 2000 
IF(STEADY.AND.ITER.EQ.1)GO TO 1000 
IFCFCMX.GT.CC) GO TO 1000 

2000 CONTINUE 
IF(STEADY)GO TO 5000 

C END OF TIME STEP 

C UPDATE OLD TEMPERATURES AND PRINT OUT VARIABLES (USER FILE) 
CALL INTPRI 
CALL UPDATE 
IFCISTOP.EQ.1)G0 TO 5000 
IF(TTIME.GT.TIMEMX)GO TO 5000 

3000 CONTINUE 

5000 CONTINUE 

500 FORMAT(I5,6X,E10.3) 
RETURN 
END 

C 大 大 大 大 大 大 大 类 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 
SUBROUTINE GRID 
INCLUDE 'COMID.FOR' 
CHARACTER*20 HEADER 


C 大 大 大 大 大 大 大 类 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 


C GRID DATA ARE GIVEN IN BLOCK DATA (USER FILE) 
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IFC(XCELL)THEN 
XCF(2)=XCF(1) 
X(1)=XCF(1) 
DO 1 I-2,N-1 
1 Х(1)=0.5*(ХСЕ(1)+ХСЕ(1+1)) 
X(N)=XCF(N) 
ELSE 
XCF(1)=X(1) 
XCF(2)=X(1) 
DO 2 I=3,N-1 
2 ((1-1)א+(1)א)*1(=0.5)ז6א‎ 
XCF(N)=X(N) 
ENDIF 
C CALCULATE PERIMETER,CELL-FACE AREA AND CELL VOLUME 
C AREA AND PERI ARE FUNCTION ROUTINES (USER FILE) 
DO 3 I=1,N 
ACFCI)-AREACXCF(CI)) 
PERIM(I)=PERI(X(1)) 


3 CONTINUE 
DO 4 I=2,N-1 
4 VOL(T)=AREA(X(1))*(XCF(I+1)-XCF(I)) 


HEADER-' (1)א‎ ' 
CALL PRINT(X,HEADER) 
HEADER-' XCF(I) ' 
CALL PRINT(XCF,HEADER) 
HEADER-' CELL FACE AREA ' 
CALL PRINT(ACF,HEADER) 
HEADER-' PERIMETER ' 
CALL PRINT(PERIM,HEADER) 
HEADER-' CELL-VOLUME ' 
CALL PRINT(VOL,HEADER) 
RETURN 
END 

) ххх кк IK IK RIK IKK IKK IK IKK IK KIKI KK IK KIKI 
SUBROUTINE COEF 
INCLUDE 'COMID.FOR' 

) хх кк КК جل جلا אד ا‎ RIK ККК ККК جل‎ IKK IK AIK IKK جل جل‎ AIK IK 
DO 1 I=2,N-1 

C INITIALISE SU ANS SP 
STAB(I)-0.0 
SUCI)-0.0 
SP(I)-0.0 
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302 


C*** 
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LW-0 

LE-0 

IFC(I.EQ.2)LW-1 

IFCI.EQ.N-1)LE-1 

DXE-XCITl1)-XCI) 

DXEP=X(I+1)-XCF(I+1) 

DXEM=XCF(I+1)-X(1) 

DXW-XCI)-XCI-1) 

DXWP-XCI)-XCFCI) 

DXWM-XCF(CI)-X(CI-1) 

CALCULATE CELL FACE CONDUCTIVITY BY HARMONIC MEAN. 
CONDSME-DXE/ (DXEM/COND(T)+DXEP/COND(I+1))*(1-LE)+LE*COND(I+1) 
CONDSMW-DXW/ (DXWP/COND(T)+DXWM/COND(T-1))*(1-LW)+LW*COND(I-1) 
AWCI)-CONDSMW*ACF CI)/DXW 

AECI)-CONDSME*ACF(CIT1)/DXE 

CONTINUE 

RETURN 

END 


C 大 大 大 大 大 大 大 类 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 类 大 


SUBROUTINE BOUND 
INCLUDE 'COMID.FOR' 


С 大 大 大 大 大 大 大 类 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 


С*** 


STAB(2)-AW(2) 

STABCN- 1)-AECN- 1) 

FOR I-1 BOUNDARY 

IF(TISPEC) THEN 

SUC2)-SUC2) FAWC2) CPSI*TCI)T(CI-PSID*(TO(1)-TO(2))) 
SP(2)=SP(2)+AW(2)*PSI 

AW(2)=0.0 

ELSE IF(QISPEC) THEN 
SU(2)=SU(2)+ACF(2)*(PSI*QB1+(1-PSI)*QB10) 
T(1)=QB1*ACF(2)/(AW(2)+SMALL)+T (2) 

AW(2)=0.0 

ELSE IF (HISPEC) THEN 

TERM1=HB1*ACF (2 )+SMALL 

TERM2=AW( 2 )+SMALL 

TERM=1/(1/TERM1+ 1/TERM2) 
SU(2)=SU(2)+PSI*TERM*TINFI+TERMI*(1-PST)*(TINF10-TO(1)) 
SP(2)=SP(2)+PSI*TERM 
T(1)=(T(2)+TERM1/TERM2*TINF1)/(1+TERM1/TERM2 ) 
AW(2)=0.0 

ENDIF 
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C*** — FOR I=N BOUNDARY 
IFCTNSPEC) THEN 
SUCN-1)-SUCN- 1) -XAECN- 1) CPST*TC(ND-C1-PSID*CTOCN) - TOCN- 122) 
SP(N-1)-SP(N- 1) -FAECN- 1) 1 
AE(N-1)=0.0 
ELSE IFCQNSPEC)THEN 
SU(N-1)=SU(N-1)+ACF(N)*(PST*QBN+(1-PST)*QBNO) 
TC(ND-QBN*ACF CN) /(AECN-1)+SMALL)+T(N-1) 
AE(N-1)=0.0 
ELSE IFC(HNSPEC) THEN 
TERMI-HBN*ACF(N)-SMALL 
TERM2=AE(N-1)+SMALL 
TERM=1/(1/TERM1+ 1/TERM2) 
SU(N-1)=SU(N-1)+PSI*TERM*TINFN+TERMI*(1-PST)*(TINFNO-TOCN) ) 
SP(N-1)=SP(N-1)+PSI*TERM 
TCN)=(T(N-1)+TERMI/TERM2*T INFN) /(1+TERM1/TERM2 ) 
AE(N-1)=0.0 
ENDIF 
RETURN 
END 

C 类 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 类 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 
SUBROUTINE SOLVE 
INCLUDE 'COMID.FOR' 

C 类 大 大 大 大 大 大 大 大 大 大 大 大 大 大 类 大 大 大 大 大 大 大 类 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 
DIMENSION AA(IT),BB(IT) 

C*** ASSEMBLE SU AND SP TERMS 
00 1 I-2,N-1 
IF(UNSTEADY ) THEN 
BP-RHOCI)*SPH(CI)/DELT*VOL(CI) 

SP(T)=SP(1)+BP 
SU(I)SSU(I)+(1-PSI)*(AE(I)*TO(I+1)+AW(I)*TO(I-1)) 
SU(I)=SU(I)+(BP-(1-PSI)*(AE(I)+AW(I)))*TO(I) 

C CHECK FOR STABILITY CONDITION 
TERM=BP-(1-PSI)*(AE(I)+AW(I)+STAB(I)) 
IF(TERM.LT.0.O)WRITE(*,*)' COEF OF TPOLD IS NEGATIVE AT I = ',I 
ENDIF 
AP(I)=PSI*(AE(I)+AW(I))+SP(I) 

C UNDER-RELAX 
E=(1.-RP)/RP*AP(I) 

AP(I)=AP(I)+E 
50(1)=50(1)+Е*Т(1) 

1 CONTINUE 


304 


C 


C 
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FCMX-0.0 


IFCGAUSS) THEN 

DO 2 I-2,N-1 

TL-TCI) 
ANUM=PSI*(AE(I)*T(I+1)+AW(I)*T(I-1))+SU(I) 
T(I)=ANUM/AP(I) 

DIFF=(T(I)-TL)/(TL+SMALL) 
IF(ABS(DIFF).GT.FCMX)FCMX=ABS(DIFF) 
CONTINUE 

ENDIF 


IF(THOMAS)THEN 


CALCULATE COEFFICIENTS BY RECURRENCE 


BACK 


AA(2)=PSI*AE(2)/AP(2) 
BB(2)=SU(2)/AP(2) 

00 3 I-3,N-1 
DEN=1.0-PSI*AW(I)/AP(I)*AA(I-1) 
AA(I)=PSI*AE(I)/AP(I)/(DEN+SMALL) 
BB(I)=(PSI*AW(I)*BB(I-1)+SU(I))/AP(I)/(DEN+SMALL) 
SUBSTITUTION 

DO 4 I=N-1,2,-1 

TL=T(I) 

Т(1)=АА(1)*Т(1+1)+ВВ(1) 
DIFF=(T(1)-TL)/(TL+SMALL) 
IF(ABS(DIFF).GT.FCMX ) FCMX=ABS (DIFF) 
CONTINUE 

ENDIF 

RETURN 

END 


大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 


SUBROUTINE UPDATE 
INCLUDE 'COMID.FOR' 


大 大 大 大 大 大 大 类 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 类 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 


C RESET OLD VALUES 


200 


DO 200 I-1,N 
TO(I)=T(I) 
0В10=0В1 
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QBNO-QBN 
HB10=HB1 
HBNO=HBN 
TINF10-TINF1 
TINFNO-TINFN 
HPREFO-HPREF 
TINFO-TINF 
RETURN 

END 


С 类 大 大 大 大 大 大 大 大 大 大 大 大 大 大 类 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 


SUBROUTINE PRINT(F,HEADER) 
INCLUDE 'COMID.FOR' 
CHARACTER*20 HEADER 


С 类 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 


100 


500 
600 


DIMENSION F(IT) 

WRITE(6 ,大 ) "大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 “ 
WRITE(6 ,*)*DISTRIBUTION OF ',HEADER 

1В=1 

IE=1B+6 

IF(IE.GT.N)IE-N 

CONTINUE 

WRITE(6,500)(F(I), I-IB, IE) 

WRITE(6,600)(I,I-IB, IE) 

IF(IE.LT.N) THEN 

IB=IE+1 

IE=1B+6 

IF(IE.GT.N)IE=N 

GO TO 100 

ENDIF 

WRITEC6, х) “大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 “ 
FORMAT(7E10.3) 

FORMAT(4X, 13,6110) 

RETURN 

END 
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2D Cartesian Code 


C.1 Structure of the Code 


The structure of the 2D Cartesian code is similar to that of the 1D conduction 
code. The code is again divided into two parts: The problem-dependent user part 
containing files COM2D.FOR and USER2D.FOR and the problem independent 
library part that contains the LIB2D.FOR file.! The listings of each file are given 
at the end of this appendix. The list of variable names with their meanings is given 
in Table С.І. 


C.2 File COM2D.FOR 


In this file, again logical, real, and integer variables are included. АП other contents 
of this file bear the same description as the COMID.FOR file. 


C.3 File USER2D.FOR 


This is the main control file at the command of the user. The first routine PROGRAM 
MAIN 15 the command routine from where subroutine MAINPR 15 called. The 
latter is the first subroutine of the LIB2D.FOR file. Here, listings of USER files are 
given for three problems solved in Chapter 5. These are (a) 1D porous body flow, 
(b) turbulent flow in an axisymmetric pipe expansion, and (c) natural convection 
evaporation. 


BLOCK DATA This routine at the end of the USER2D.FOR file specifies all the 
problem-dependent data such as control parameters, relaxation parameters, Prandtl 
numbers, flow conditions, equations to be solved, and convection scheme used. The 


! The library file does not contain two features that can be generalised. These are (a) modifications 
to coefficients of the pressure-correction equation for a compressible flow and (b) modifications 
for a fixed pressure boundary condition. However, these can be incorporated by the user via the 
ADSORB.FOR routine in the USER file. 
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Table C.1: List of variables for 2D Cartesian code. 











Variable Meaning 

AE, AW Array containing east and west coefficients 

AN, AS Array containing north and south coefficients 
AMW Mass influx at the wall (kg/m?-s) 

AP Array containing coefficient of Фр 

API Array containing coefficient of рь 

APU, APV Array containing coefficient of up and vp 
AXISYMM Logical — =.TRUE. refers to axisymmetric case 
CAPPA Constant in log law of the wall 

CC Convergence criterion 

CCTM Stop condition for unsteady problem 

CDI Constant in 6-6 turbulence model 

CD2 Constant in 6-6 turbulence model 

CONMAS Logical – refers to imposition of mass balance at exit plane 
D Array for turbulent energy dissipation rate € 

DELT Time step (s) 

DENSIT Reference density (kg/m?) 

DO Array for e at old time 

DPI Periodic pressure change in I direction 

DP2 Periodic pressure change in J direction 

DXMI Array containing increment X (I) — X (/ — 1) 

DXP Array containing increment XC (J + 1) — XC (I) 
DYMI Array containing increment Y (J) — Y (J — 1) 

DYP Array containing increment ҮС (J + 1) — YC (J) 

E Array for turbulent kinetic energy e 

ELOG Constant in log law of the wall 

EO Array for e at old time 

FDIF Array for storing Ф/+! — d! or  — $° 

FTRAN Logical — refers to false transient solution 
GAMMA Multiplier of p - p 

GRCELL Logical — refers to specification of cell-face coordinates 
GRNODE Logical — refers to specification of node coordinates 
GREAT Parameter having a large value 1030 

HH Array containing enthalpy variable (J/kg) 

HYBRID Logical — refers to hybrid convection scheme 

IN Maximum number of nodes in I direction 

INM IN-1 

IPERIOD Index for periodicity in I direction - see BLOCK DATA 
IPREF I index of reference point of pressure 

IREAD = .TRUE. when file NSIN is to be read 

IT Parameter containing array size in I direction 
IWRITE = .TRUE. when file NSOUT is to be written 

JN Maximum number of nodes in J direction 

JNM JN-1 

JPERIOD Index for periodicity in J direction - see BLOCK DATA 


(continued) 
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Table C.1 (continued) 

















Variable Meaning 

JPREF J index of reference point of pressure 

JT Parameter containing array size in J direction 
MFREQ NSOUT file written after every MFREQ iteration 
MXGR Parameter containing bigger of IT and JT 

MXIT Maximum number of allowable iterations 
MXSTEP Maximum number of allowable time steps 
NITER Iteration count 

NPERIOD — ] for periodic boundary condition, — 0 otherwise 
NSWEEP Array containing maximum sweeps per iteration 
NTAG Array for identifying interior nodes 

NTAGE Array for identifying east near-boundary nodes 
NTAGN Array for identifying north near-boundary nodes 
NTAGS Array for identifying south near-boundary nodes 
NTAGW Array for identifying west near-boundary nodes 
NTIME Current time step number 

NVAR Maximum number of variables solved 

О Array for mass fraction w 

P Array for pressure (N/m?) 

PI Parameter 元 

PO Array for pressure at old time 

POWER Logical — refers to power-law scheme 

PP Array for pressure correction 

PR Array for fluid Prandtl number 

PRT Array for turbulent Prandtl number 

PSM Array for smoothing pressure correction 

QW Array for wall-heat in flux (W/m?) 

R Array for storing radius at the node 

RC Array for storing radius at the south cell face 
RHO Array for density (kg/m?) 

RNORM Array for storing residual normalising factors 
RP Array relaxation parameter o 

RSDU Array for storing maximum residual 

SMALL Parameter having a small value 10—30 

SLVE Logical array for specifying variable to be solved 
SP Array containing Sp 

SPH Array for specific heat (J/kg-K) 

STEADY Logical — refers to steady-state calculation 
STIME Time at the start of a transient 

TTIME Total time after NTIME steps 

SU Array containing Su 

T Array containing temperature (^C or K) 

TAUW Array containing shear stress at the wall (N/m?) 
TO Array containing temperature at old time 
TURBUL Logical — refers to turbulent flow 

U Array containing и velocity 
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Variable Meaning 

UNSTDY Logical — refers to unsteady-state calculation 
UO Array containing и velocity at old time 
UPWIND Logical — refers to upwind difference scheme 
V Array containing и» velocity 

VISCOS Reference viscosity (N-s/m?) 

VIS Array containing laminar viscosity 

VIST Array containing turbulent viscosity 

VO Array containing иә velocity at old time 
VOL Array containing cell volume (m?) 

W Array containing из velocity 

WO Array containing из velocity at old time 

X Coordinate of node I (m) 

XC Coordinate of cell face at w 

Y Coordinate of node J (m) 

YC Coordinate of cell face at s 





user may introduce additional problem-dependent indices such as IB1, IB2, etc. The 
grid coordinate data may be normalised or real. 


Subroutine TITLE In this routine, the problem-specific title is inserted. 


Subroutine INIT In this routine, the best known initial guesses for all relevant 
variables are given. Also, known INFLOW conditions are specified. 


Subroutine BSPEC Неге, boundary types are specified. Identifiers for boundary 
type and boundary condition are declared by logical variables such as WEST or 
SYMM. WALLT and WALLQ stand for, respectively, temperature and heat influx 
specified at wall boundaries. EXIT1 and EXIT2 stand for exit boundary conditions. 
When EXIT1, the first normal derivative at the boundary is set to zero, for EXIT2, 
the second normal derivative is zero. BLOCK identifies blocked regions of the 
domain. These specifications must be made carefully and a hand sketch of the 
domain will assist correct specifications. Also, reference may be made to the node- 
tagging section in Chapter 5. 


Subroutine ADSORB This routine is used to add any special source terms for 
each variable solved. The standard source terms are included in the SORCE routine 
in LIB2D.FOR file. The routine is also used to overwrite USER-defined specifica- 
tions for density, specific heat, and viscosity. The routine is also used to specify 
a fixed-pressure boundary condition. Further, the routine is used to give periodic 
boundary conditions. 


Subroutine RESULT In this routine, the final converged solutions are printed. The 
routine 15 also used to extract useful parameters such as friction factor or Nusselt 
number from the converged solution. This routine is also used to create output files 
for contour and vector plots using graphics packages such as TECPLOT. 
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Subroutine OMEGA In this routine, the user sets out solution of the mass transfer 
equation(s) as well as the enthalpy equation by defining new variables О (I, J) and 
HH (1, J). If the problem is unsteady then OO (I, J) and HHO (I, J) must also be 
defined. If there are several mass fractions solved (as in a combustion problem), 
then additional variable names must be defined and declared in the COM2D.FOR 
file. For all these variables, subroutine COEF is first called. Then, source terms and 
boundary conditions are specified for each variable with appropriate updates of Su 
and Sp. Finally, the variable under consideration is solved by calling the SOLVE 
routine. The USER file for the evaporation problem shows how this is done by 
solving for the vapor mass fraction. 


C.4 File LIB2D.FOR 


Subroutine MAINPR This is the main routine from which all other routines are 
called for program execution. The sequence of calling is important. 


Subroutine INITIA Here, all variables are initialised. 


Subroutine TAG In this routine node tagging is accomplished. The routine is 
called from subroutine BSPEC in the USER2D.FOR file. CHAR1 and CHAR2 
carry logical variables whereas IB, IL and JB, JL carry specification limits in the I 
and J directions. Note that NTAG (I, J) = 1 for the blocked region; it is already set 
to zero in routine INITIA otherwise. 


Subroutine BOUND This routine implements the boundary conditions. The rou- 
tine can be written more compactly. Here, boundary conditions for west, east, south, 
and north are written explicitly for ease of understanding. Note that periodic bound- 
aries are treated as inflow boundaries. Therefore, velocities at such boundaries must 
be provided by the user in the ADSORB routine in the USER2D.FOR file. The 
routine provides boundary conditions for only six variables: u, v, w, e, e, and T. 
For all other variables such as mass fractions or enthalpy, the boundary conditions 
are given in the routine OMEGA in the USER2D.FOR file. 


Subroutine GRID In this routine, node and/or cell-face coordinates are evaluated 
depending on logical specifications GRCELL and GRNODE. Also, repeatedly used 
incremental distances and cell volume are calculated and stored. The sum of cell 
volumes must equal the domain volume. Hence, the latter is printed via SUMVOL. 
The USER should always check SUMVOL in output file OO opened in PROGRAM 
MAIN. Note that R (J) and RC (J) are set to 1 for the plane case but are equated to 
Y (J) and YC (J), respectively, for the axisymmetric case. 

Subroutine COEF In this routine, coefficients AE, AW, AN, and AS are calcu- 
lated for transport equations and for the pressure-correction equation. Note that, in 
evaluation of transport equation coefficients, the cell-face viscosities are evaluated 
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by harmonic mean. Similarly, care is exercised in evaluation of periodic boundary 
coefficients in the pressure-correction equation. 


Subroutine SORCE This routine includes standard source terms for all variables. 
Thus, for и and v velocities, pressure-gradient terms are included but body force 
terms are excluded. In the turbulent kinetic energy source term, the near-wall bound- 
ary node is excluded as required for implementation of the high Reynolds number 
(HRE) turbulence model (see Chapter 5). For the LRE model, the USER will have 
to modify entries in BOUND and SORCE routines. For temperature, the standard 
source term is set to zero. To include effects of viscous dissipation or heat genera- 
tion due to chemical reaction or radiation, the ADSORB routine in the USER file 
must be used. 


Subroutine APCOF In this routine the coefficient of Фр 1s assembled by adding 
SP (І, J) and dividing by ₪. The APU and АРУ coefficients store the AP coefficient 
of the two momentum equations whereas АРІ stores the coefficient of рр. 


Subroutine PROPS Here, density, specific heat, and viscosity variables are spec- 
ified. If BSOR (8) is . TRUE. then the default specifications can be overwritten in 
the ADSORB routine in the USER2D.FOR file. 


Subroutine UNST In this routine, Su and Sp are appropriately updated for truly 
unsteady or false-transient calculation. 


Subroutine UPDATE In this routine, all new time values are set in old time 
values. 


Subroutine INFLUX In this routine values ofm Ф at inlet boundaries are evaluated 
for all variables to form the RNORM array. The latter is used to normalise the 
residual calculation in subroutine SOLVE. 


Subroutine MASBAL This routine calculates the domain exit mass flow rate based 
on specifications of velocity boundary conditions in subroutine BOUND. However, 
this mass flow rate must be the same as the sum of all mass flow rates specified at 
the inlet boundaries. During an iterative solution, this balance is rarely maintained. 
Therefore, before solving the pressure-correction equation, the prevailing exit-plane 
velocities are uniformly corrected in this routine by the ratio of inlet to exit mass 
flow rates. 


Subroutine PVCOR In this routine, the mass-conserving pressure-correction p;, 
15 first recovered and then pressure and velocities are corrected. The smoothing 
pressure-correction p; is stored for printing when desired. The routine also cal- 
culates the mass residual Rm, as explained in Chapter 5. 


Subroutine BOUNDP In this routine, boundary pressures are extrapolated from 
near-boundary values as explained in Chapter 5. Note that رام‎ values are also 
extrapolated to effect correct velocity corrections at the near-boundary nodes in 
routine PVCOR. Further, care is exercised to effect correct interpolation of pressure 
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at the periodic boundaries. When BSOR (9) is .TRUE., fixed-pressure conditions 
are given in the ADSORB routine of the USER2D.FOR file. 


Subroutine INDATA This routine simply writes out input data given in BLOCK 
DATA in the OO file for verification. 


Subroutine SOLVE This routine solves the discretised equations by the ADI 
method. At the start of this routine (1.e., at iteration level 1) residuals are calcu- 
lated at each node and the root-sum-square value of residuals is stored in RSUM. 


Subroutine SOLP This routine is the same as the SOLVE routine but is exclusively 
used for the pressure-correction equation. Note that subroutine BOUNDP is called 
at each sweep when a periodic boundary condition is specified. 


Subroutine EQN In this routine the outer DO loop (2000) is initiated for an 
unsteady calculation and the inner loop (1000) carries out iterative calculations. 
For each chosen variable (specified by logical SLVE), subroutines COEF, SORCE, 
BOUND, APCOF, and SOLVE are called in turn. To carry out appropriate updates 
of Su and Sp, UNST and ADSORB routines are also called. When all relevant 
variables are covered, subroutine PROPS is called to update the properties. Then, 
the maximum residual among all variables is stored in RSTOP In a steady-state 
problem, if the convergence criterion 15 satisfied, the inner loop is exited and control 
15 returned to the subroutine MAINPR. In an unsteady problem, upon exiting the 
inner loop, subroutine UPDATE is called to reset the values and the STOP condition 
is based on the maximum value of FDIF. The outer loop is continued until the 
maximum number of steps specified in BLOCK DATA is executed. At each time 
step, however, the inner loop is executed for the MXIT number of iterations. In 
many problems, because of the impossibility of specifying good initial guesses, the 
number of iterations required may run into the thousands. For this reason, variables 
are written out in file NSOUT at every MFREQ iteration, where MFREQ is set in 
the BLOCK DATA routine.” 


Subroutine TDMA This routine calculates the recurrence coefficients and carries 
out back substitution as required in TDMA execution. 


Subroutine OPT In this routine, all variables are written out in binary form in file 
NSOUT. 


Subroutine IPT Inthis routine, all variables are read in binary form from file NSIN. 
Therefore, before execution of the program in a continuation can commence, file 
NSOUT must be copied to file NSIN. 


Subroutines PRINTK This routine is used to print out 2D variables. 


2 At every iteration, the three main residuals for и, v, and p’ are stored in arrays RESIU(NITER), 
RESIV(NITER), and RESIM(NITER). Their evaluation has been commented on. However, the 
USER may activate this evaluation to enable printing of residual history in the RESULT routine 
when required. 
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Subroutines PR1D This routine is used to print out 1D variables. 


Function STAN This function routine is called from subroutine BOUND to im- 
plement a wall-function boundary condition for temperature and mass-fraction 
variables in a turbulent flow. The routine evaluates the Stanton number based on 
specification of PE, which the USER may change if required. For mass-fraction 
variables, the function is called from routine OMEGA. 


Functions FINTW, FINTE, FINTS, and FINTN These function routines evalu- 
ate variable Ф at cell faces, w, e, s, and n, respectively, using linear interpolation. 


COMMON BLOCK COM2D.FOR 


(人大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 


С THIS 15 COM2D.FOR 

6 类 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 

С IT AND آل‎ CHANGE WITH THE PROBLEM 
PARAMETER( 11-37 ,JT=37 ,MXGR=37 ) 
PARAMETER(GREAT=1 . 06+20 , SMALL=1.0E-20, PI=3.1415926) 
LOGICAL TURBUL,STEADY , UNSTDY , FTRAN,CONMAS , AXISYMM, BSOR 
LOGICAL UPWIND,HYBRID,POWER,SLVE, IREAD, IWRITE 
LOGICAL GRCELL,GRNODE 


COMMON/CFLOW/TURBUL, STEADY , UNSTDY , FTRAN, CONMAS , AXISYMM 
COMMON/SCHEME/UPWIND,HYBRID,POWER,SLVE(7) , IREAD, IWRITE 
COMMON/CGRID/IN,JN, INM, JNM, IPREF,JPREF,CORP,NPERIOD,MFREQ 

1 ,GRCELL , GRNODE 
COMMON/CONTR1/CC,MXIT,CCTM,MXSTEP,DELT, STIME,TTIME 
COMMON/CONTR2/RP(9),NSWEEP(C7) , NITER, RSDU(C7) , FDIF(7) , RRORM(7) 
COMMON/CPROP /DENSIT,VISCOS,PRC7) , PRTC7) , RHOCIT,JT) 

1 ,SPHEAT, SPHCIT,JT),VISCIT, JT), VISTCIT, JT), GAMMA 
COMMON/CTURB/CD1,CD2,CMU,ELOG,CAPPA 
COMMON/CTAG/NTAG(IT,JT),NTAGW(IT,JT),NTAGECIT,JT) 

1 ,NTAGSCIT,JT) ,NTAGNCIT,JT) 
COMMON/COFV/AWCIT,JT),AECIT, JT), ASCIT, JT) , ANCIT, JT) 
COMMON/CSOR/SUCIT,JT) , SPCIT,JT), BSOR(9) 
COMMON/CAP/APICIT,JT) , APCIT, UT) , APUCIT, JT) , APVCIT, JT) 
COMMON/CVAR/UCIT,JT),VCIT, JT) , WCIT, ODD), PCIT,JT) 

1 ECIT, JD), DCIT, JT), TCIT, JD), PPCIT, JT), PSKCIT, оТ) 

COMMON/CVAO/UOCIT,OT),VOCIT,JT), WOCIT, JT) , POCIT,JT) 

1 ,EOCIT,JT), DOCIT, JT), TOCIT, JT), RHOOCIT,JT) 
COMMON/CORD/XCIT),YCOT) , XCCIT), YCCJT) , RCJT), RCCJT) 

1 ,DXMICIT),DYMICOT) ,DXPCIT) (דט)קצם,‎ , VOLCIT,JT) 
COMMON/CHEAT/QWCIT,JT) , TAUWCIT, OT) , АМИ(ІТ, ЈТ) 
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COMMON/CPERIOD/DP1,DP2,IPERIOD, JPERIOD 
COMMON/CDUMT/DUM1(IT,JT) ,DUM2CIT, JT) , DUM3CIT, JT) 
COMMON/CRES/RESIU(5000), RESIV(5000) , RESIM(5000) 

ADDITIONAL PROBLEM-DEPENDENT COMMON STATEMENTS 
COMMON/CEVAP/IBI,IB2,JB1,GRM,SC,OBR,OWT,OCIT,JT) ,HHCIT,JT) 
COMMON/CKRAL/D2,D1,U2,U1 
COMMON/CPOROS/UUCIT,50),PRESCIT,50), PPPCIT,50), PPSCIT,50) 

1 ,EPSI,RESIST,PIN 











1D Porous Body Problem - Chapter 5 
The USER file that follows shows how а fixed-pressure boundary condition (1.е., 
p! = 0) is implemented in the ADSORB subroutine. 


C 
C 
C 


с) 


大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 类 大 大 大 大 大 大 大 大 大 大 大 大 大 


THIS IS USER FILE POROS.FOR - PFIX BOUNDARY CONDITION 
大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 

PROGRAM MAIN 

INCLUDE 'COM2D.FOR' 

OPENCUNIT-6,FILE-'00') 

WRITECS*) ce عقا‎ output is in 00 file -------------- 1 
**** INITIAL DATA 

WRITEC*,*)'GIVE ----- MXIT,IREAD, GAMMA" 

READ(*,*)MXIT, TREAD, GAMMA 

DX=1/FLOAT(IN-1) 

X(1)=0.0 

DO 1 I-2,IN 

אם+(1-1)א=(1)א 

Y(1)-0 

Y(2)-0.5 

Y(3)-1.0 

INM-IN-1 

JNM-JN-1 

VISCOS-VISCOS/EPSI 

DENSIT-DENSIT/EPSI**2 


CALL MAINPR 
STOP 
END 


C 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 


SUBROUTINE TITLE 
INCLUDE 'COM2D.FOR" 


C 大 大 大 大 大 大 大 类 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 类 大 大 大 大 大 大 大 大 大 大 大 大 大 
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WRITE(6 ,大 ) "大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 “ 


WRITE(6,*)”PROGRAM TO CALCULATE POROS MEDIUM FLOW ' 
WRITE (6, ¥) 91 علد‎ e RRR 6 k جل באכ جل جل אכ‎ К RRR RK KI KAA אי אי אי جل 3 جل جل‎ IA IAA? 
RETURN 
END 
C ххх RIK IR IK RIK جل جل جلا‎ К-К IKK IK AIK IKK IK A 
SUBROUTINE INIT 
INCLUDE ’COM2D.FOR’ 
(CK IR جل جل جلا‎ IK IK RIK جل جلا جل‎ IK КК IKK IK A 
C INITIAL GUESS 
PIN=RESIST 
DO 1 I-1,IN 
DO 1 J=1,JN 
P(T,J)=PIN*(1-X(1)/X(IN)) 
CONTINUE 
P(1,2)=PIN 
RETURN 
END 
(CR RR IR جل جل جلا‎ IK IK RIK IKK IK RIK IKK IK A 
SUBROUTINE BSPEC 
INCLUDE ’COM2D.FOR’ 


א א א אל % אל אל א אל ל אל אל % אל אל אל אל 6 אל אל ל אל ל אל אל ל אל אל אל אל ל אל אל 6 אל אל אלאל С‏ 


C **** PROVIDE BOUNDARY 8 BLOCKED REGIONS 


CHARACTER*10 BLOCK,WEST,EAST,SOUTH, NORTH 
CHARACTER*10 INFLOW,EXIT1,SYMM, EXIT2, WALLT,WALLQ, PERIOD 
DATA  BLOCK,WEST,EAST,SOUTH, NORTH 
1  /'BLOCK','WEST','EAST', 'SOUTH' , ’NORTH’/ 
DATA INFLOW,EXIT1,SYMM,EXIT2,WALLT,WALLQ, PERIOD 
1  /'INFLOW','EXITI','SYMM', 'EXIT2' ,'WALLT' ,'WALLQ' , ' PERIOD'/ 
C ***** BLOCKED REGIONS 
C CALL TAGCBLOCK,BLOCK,2, IB1-1,JB2,JNM) 
C CALL TAGCBLOCK,BLOCK, IB1, INM,2,JB1-1) 
C ***** DEFINES א‎ & E BOUNDARIES 
CALL TAGC(WEST,EXIT1,2,2, 2,JNM) 
CALL TAGCEAST, ЕХІТІ, ІММ, INM,2, JNM) 
C ***** DEFINES N&S BOUNDARIES 
CALL TAGCNORTH,SYMM,2, INM, JNM, JNM) 
CALL TAGCSOUTH,SYMM,2,INM,2,2) 
RETURN 
END 
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C 大 大 大 大 大 大 大 大 大 类 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 


SUBROUTINE RESULT 
INCLUDE 'COM2D.FOR" 

C 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 
CHARACTER*20 HEADER 
JSTEP=-1 
WRITE(6,*)* NITER-',NITER 
HEADER-' U-VEL’ 
CALL PRINTK(U,1,IN,2,0NM,HEADER, JSTEP) 
HEADER-' PRESS’ 
CALL PRINTK(P,1,IN,2,JNM,HEADER, JSTEP) 
OPEN(12,FILE-'PORU.DAT") 
WRITE(12,*)'IN = ',IN 
WRITE(12,*)' (1)א‎ = ' 
WRITECI2,500) (Х(І), I21, IN) 
WRITE(C12,*)' U- VELOCITY ' 
DO 11 NN=1,NITER-1 

11 WRITE(12,500)NN, CUUCI, ММ), I-1, IN) 
CLOSE(12) 
OPEN(13,FILE=’ PORP.DAT’ ) 
WRITE(13,*)’IN = ',IN 
WRITE(13,*)’ (1)א‎ = ' 
WRITE(13,500)(X(1),I=1,1N) 
WRITE(13,*)’ PRESSURE’ 
DO 12 NN=1,NITER-1 

12 WRITE(13,500)NN, (РКЕЅ(І, №), 1=1,1М) 
CLOSE(13) 
OPEN(14,FILE=’ PORPP.DAT’ ) 
WRITE(14,*)’IN = ',IN 
WRITE(14,*)’ (1)א‎ = ' 
WRITE(14,500)(X(1),I=1,1N) 
WRITE(14,*)' PPM’ 
DO 122 NN=1,NITER-1 

122 WRITE(14,500)NN, (PPP(I,NN),I=1, IN) 
CLOSE(14) 
OPEN(15,FILE=’ PORPS.DAT’ ) 
WRITE(15,*)'IN = ',IN 
WRITE(15,*)’ (1)א‎ = ' 
WRITE(15,500)(X(1),I=1,1N) 
WRITE(15,*)' PPS’ 
DO 222 NN=1,NITER-1 

222 WRITE(15,500)NN, (PPS(I,NN),I=1, IN) 


APPENDIX С. 2D CARTESIAN CODE 317 


CLOSE(15) 
600 FORMAT(2X,7E10.3) 
500 FORMAT(14,2X,7E10.3) 
RETURN 
END 


C 类 大 大 大 大 大 大 大 大 大 大 类 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 


SUBROUTINE ADSORB(NN) 
INCLUDE ’COM2D.FOR’ 

С ххх кк К КК جل جلا‎ RIK IKK IK КК IKK IK A 
N-NN 
GO TO (10,20,30,40,50,60,70,80,90),N 

C *** FOR PRESSURE CORRECTION - PFIX CONDITION 

10 CONTINUE 
SP(2,2)=SP(2,2)+RHO(1,2)*(R(2) *DYPC2) ) **2/APUC2,2) 
SPCINM,2)-SP(CINM, 2) -RHOCIN,2)*(RC2) *DYPC2) ) **2/APUCINM, 2) 


GO TO 1000 
C *** FOR U-VEL 
20 CONTINUE 
DO 21 I-2,INM 


TERM=U(1I+1,2)/DXMI(1+1)*DYP(2)+U(1-1,2)/DXMI(1)*DYP(2) 
SUCI,2)-SUCI,2)*TERM*VISCOS 
SP(1,2)=SP(1,2)+VISCOS*DYP(2)*(1./DXMI(I+1)+1./DXMI(1)) 


21 SPCI,2)-SPCI,2)*VISCOS*RESIST*EPSI*VOL(CI,2) 
GO TO 1000 

C *** FOR V-VEL 

30 GO TO 1000 

C *** FOR W-VEL 

40 GO TO 1000 

C *** FOR K. ENERGY 

50 GO TO 1000 

C *** FOR DISSIPATION 

60 GO TO 1000 

C *** FOR TEMPERATURE 

70 GO TO 1000 

C *** FOR FLUID PROPERTIES 

80 GO TO 1000 

C *** CALLED FROM BOUNDP 

90 P(1,2)-PIN 
PCIN,2)-0 
PPCIN,2)-0 
PP(1,2)-0 


C DUMMY VARABLES FOR UU,PRES,PPP,PPS FOR PRINTING 
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DO 91 I-1,IN 

UUCI,NITER)-U(I,2) 
PPSCI,NITER)-PSM(I,2)/CPCI,2)* SMALL) 
PRES(I,NITER)=P(1,2) 
PPP(I,NITER)=PP(1,2)/(P(1,2)+SMALL) 
CONTINUE 


1000 CONTINUE 


С 


С 


С 


RETURN 
END 
大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 
SUBROUTINE OMEGA 
INCLUDE ’COM2D.FOR’ 
大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 
SPECIES EQUATION 
RETURN 
END 
大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 
BLOCK DATA 
INCLUDE ’COM2D.FOR’ 
大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 
**** [INITIAL DATA(make sure that IN,JN equal IT,JT) 
DATA CC,IPREF,JPREF,MXIT,GAMMA/1.0E-06,3,2,55,0.5/ 
DATA CCTM,MXSTEP,DELT, STIME,MFREQ/1.0E-06,65,1.00,0.0,20/ 
PP U V W E D T VIS P 


DATA RP/1.0,0.95,0.5,0.5,0.5,1.0,1.0,1.0,0.95/ 
DATA NSWEEP/ 1, 1, 1, 1, 1 , 1 / 
DATA PR/1.0,1.0,1.0,1.0,1.0,1.0,0.7 / 
DATA PRT/1.0,1.0,1.0,1.0,1.0,1.3,0.9 / 


DATA DENSIT,VISCOS,SPHEAT/1.0,1.0,1.0/ 

DATA CD1,CD2,CMU, EL0G, CAPPA/1.44,1.92,0.09,9.793,0.4187/ 
**** LOGICAL DATA 

DATA TURBUL, STEADY, UNSTDY, FTRAN , CONMAS, AXISYMM 

1 /.FALSE.,.TRUE., .FALSE., .FALSE., .FALSE., .FALSE./ 

DATA UPWIND,HYBRID,POWER/.TRUE.,.FALSE.,.FALSE./ 

DATA SLVE/2*. TRUE. ,5*.FALSE./ 

DATA BSOR/.TRUE.,.TRUE.,6*.FALSE.,.TRUE./ 

DATA IREAD,IWRITE/.FALSE. ,.TRUE./ 
PERIODIC BC 

DATA IPERIOD, JPERIOD/0,0/ 

DATA DP1,DP2/0.0,0.0/ 
**** READ GRID DATA 

DATA GRCELL,GRNODE/.FALSE.,.TRUE./ 
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DATA IN,JN/5,3/ 
DATA EPSI,RESIST/0.1,4E5/ 
END 


Pipe-Expansion Problem - Chapter 5 

Inthe USER file that follows see how inlet conditions for e and є are given in the INIT 
subroutine. Also, in the BLOCK DATA routine, see that CONMAS and AXISYMM 
are set active. The pipe-expansion step is designated by JB1. The file is first executed 
with NTEMP = 0 and only flow variables are calculated. Then, reading NSIN, the 
temperature equation is solved with NTEMP = 1. Also, in subroutine RESULT, 
note how the reattachment length and Nusselt numbers are evaluated. 


C 类 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 


C THIS IS USER FILE FOR PIPE-EXPANSION 
C 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 

PROGRAM MAIN 

INCLUDE ’COM2D.FOR’ 

OPENCUNIT=6,FILE=’00’ ) 

МВІТЕ( E) 29585 output is in 00 file -------------- 1 
C **** INITIAL DATA 

INM-IN-1 

JNM-JN-1 

D2-2.0 

D1-1.0 

U2-1.0 


WRITE(*,*)' IF NTEMP = 1, ONLY TEMP SOLUTION * 
WRITE(*,*) GIVE ----- MXIT,IREAD,DELT,VISCOS,NTEMP ^" 
READ(*,*)MXIT, IREAD,DELT,VISCOS,NTEMP 
IF(NTEMP.EQ.1)THEN 

SLVE(1)=. FALSE. 

SLVE(2)=. FALSE. 

SLVE(3)=. FALSE. 

SLVE(5)=. FALSE. 

SLVE(6)=. FALSE. 

SLVE(7)=.TRUE. 

ENDIF 

PRT(7)=0.85+0.0309*(PR(7)+1)/PR(7) 
REY=U2*D2*DENSIT/VISCOS 

WRITEC6,*)' REYNOLDS NO = ',REY 


CALL MAINPR 
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STOP 
END 
С eee kk ke КККК جلا‎ IK IK IK IK IK IK IK IK A 
SUBROUTINE TITLE 
INCLUDE *COM2D. FOR’ 


С 大 大 大 大 大 大大 大大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 


WRITE(6,*) "大 大 大 大 大 大 大 大 大 大大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 


WRITE(6,*)' PROGRAM TO CALCULATE SUDDEN EXPANSION D2/D1 = 2 ' 
WRITE(6,*)' KRALL AND SPARROW ° 
WRITE(6,*) "大 大 大 大 大 大 大 大 大 大大 大 大 大 大 大 大 大 大 大 大 大 火 大 大 大 大 大 大 大 大 
RETURN 
END 
С 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 
SUBROUTINE INIT 
INCLUDE 'COM2D.FOR' 
С 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 
C INITIAL GUESS 
RATIO-10*0.563E-3/VISCOS 
UBAR-U2 
00 10 I-1,IN 
QW(1,JN)=1.0 
DO 10 J=1,JNM 
UCI,J)-UBAR 
U(1,J)=(D2/D1)**2*UBAR 
IF(J.GE.JB1)U(1,J)-0.0 
IF(TURBUL)THEN 
E(1,J)=0.1*0.1*U(1,d)**2 
D(1,J)=CMU*DENSIT*E(I,J)**2/VISCOS/RATIO 
ENDIF 
10 CONTINUE 
RETURN 
END 
С 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 
SUBROUTINE BSPEC 
INCLUDE 'COM2D.FOR' 
C 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 
C **** PROVIDE BOUNDARY & BLOCKED REGIONS 
CHARACTER*10 BLOCK, WEST, EAST, SOUTH, NORTH 
CHARACTER*10 INFLOW,EXIT1,SYMM, EXIT2, WALLT , WALLQ, PERIOD 
DATA BLOCK, WEST, EAST, SOUTH, NORTH 
1 /*BLOCK’, WEST’, EAST’, * SOUTH’ , NORTH’ / 
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DATA — INFLOW,EXIT1,SYMM,EXIT2,WALLT, МАО, PERIOD 
1  /'INFLOW','EXIT1', ' SYMM', 'EXIT2' , "МАСТ", ’WALLQ’, ’PERIOD’/ 
C ***** BLOCKED REGIONS 
C CALL TAGCBLOCK,BLOCK, IBI,IB2-1,JB1,JNM) 
C ***** DEFINES W & E BOUNDARIES 
CALL TAGC(WEST, INFLOW,2,2, 2,JB1-1) 
CALL TAG(WEST,WALLO,2,2,JB1,JNM) 
CALL TAGCEAST, EXIT2, INM, INM,2,JNM) 
C ***** DEFINES N&S BOUNDARIES 
CALL TAGCNORTH,WALLQ,2,INM, JNM,JNM) 
CALL TAGCSOUTH,SYMM,2,INM,2,2) 
RETURN 
END 
6 类 大 大 大 大 大 大 大 大 类 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 
SUBROUTINE RESULT 
INCLUDE ’COM2D.FOR’ 
С 类 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 
CHARACTER*20 HEADER 
DO 1 J=1,JN 
DO 1 I-1,IN 
1 VIST(I,J)=VIST(1I,J)/VISCOS 


JSTEP--1 

WRITEC6,*)' NITER-',NITER 

HEADER-' U-VEL’ 

CALL РКІМТК(О, 1, ІМ, 1, ЈМ, HEADER, JSTEP) 
HEADER-' V-VEL’ 

CALL PRINTK(V,1,IN,1,JN, HEADER, JSTEP) 
HEADER-' PRESS’ 

CALL PRINTK(P,1,IN,1,JN,HEADER, JSTEP) 
IF(TURBUL) THEN 

HEADER-' К ENERGY’ 

CALL PRINTK(E,1,IN,1,JN,HEADER, JSTEP) 
HEADER-' DISS* 

CALL PRINTK(D,1,IN,1,JN,HEADER, JSTEP) 
HEADER-' MUT' 

CALL РКІМТК(СМІЅТ, 1, ІМ, 1, ЈМ, HEADER, JSTEP) 
ENDIF 

IF(SLVEC7))THEN 

HEADER-' TEMP* 

CALL PRINTK(T,1,IN,1,JN, HEADER, JSTEP) 
ENDIF 
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11 


10 
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STEP-2.0*RCJN) 

XATTCH-0.0 

COND-VISCOS*SPHEAT/PR(7) 

DO 10 I-2,INM 

XX-XCI)-XCC1) 
IFC(UCI,JNM).GT.0.0.AND.UCI-1,JNM).LT.0.0) THEN 
BB-(CUCI,JNM) -UCI-1,JNM))/DXMICI) 
AA-U(CI,JNM)-BB*X(CI) 

XATTCH--AA/BB-XC(1) 

ENDIF 

FLUX-QWCI,JN) 

SHEAR-ABSCTAUWCI,JN)) 

UPLUS-UCI,JNM) /SQRTCSHEAR/DENSIT) 
YPLUS-CY (JN) -Y (JNM) ) *SQRTCSHEAR/DENSIT)/VISCOS 
TW-TCI,JN) 

ANUM=0 .0 

DEN=0.0 

DEN1=0.0 

DO 11 J=2,JNM 
ANUM-ANUM-T(CI,J)*ABSCUCI,J))*RCJ)*DYP(J) 
DEN-DEN-ABS (UCI,J))*R(J)*DYP(CJ) 
DENI=DEN1+U(T,J)*R(J)*DYP(J) 

CONTINUE 

TB=ANUM/DEN 

UBAR-DEN1*2/R(JN)**2 

ANU-FLUX/ (TW- TB-SMALL)*2.0*R(CJN) /COND 
XX-XX/STEP 
REY-UBAR*DENSIT*2*R(JN) /VISCOS 
ANUTH-0.0123*REY**0.874*PR(7)**0.4 
ANUR=ANU/ANUTH 
WRITE(6,*)XX,ANUR,UPLUS,YPLUS 

CONTINUE 

WRITE(6,*)' ANUTH = *, ANUTH,' REY = ',REY 


XATTCH=XATTCH/STEP 

WRITE(6,*)' ATTACHMENT X = ',XATTCH 
IBEG-2 

IEND-35 

ITOT-IEND-IBEG-*l 

OPEN(12,FILE=’ EXPN.DAT’ ) 
WRITE(12,*)’TITLE = EXPANSION - KRALL’ 
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WRITE(C12,*)'VARIABLES = XX YY UU VV TT י‎ 





WRITE(12,*)'ZONE Т = ZONE1, I = ',ITOT,', J 
DO 111 J-1,JN 

111 WRITE(12,*)(X(1), I-IBEG, IEND) 
DO 112 J-1,JN 

112 WRITEC12,*)(YCJ) , I=IBEG, TEND) 
DO 113 J-1,JN 

113 WRITEC12,*)(UCI, 2), I-IBEG, TEND) 
00 114 J-1,JN 

114 WRITEC12,*)(VCI, 0), I-IBEG, TEND) 
DO 115 J-1,JN 

115 WRITE(12,*)CTCI, 0), I-IBEG, IEND) 
CLOSE(12) 
RETURN 
END 


C 类 大 大 大 大 大 大 大 大 大 大 大 大 大 大 类 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 


SUBROUTINE ADSORB(NN) 
INCLUDE ’COM2D.FOR’ 
С оххх אב‎ e אכ 6 אב‎ КК אב جلا‎ ККК אכ جلا‎ ККК КККК ЖСК КОК 
N-NN 
GO TO (10,20,30,40,50,60,70,80,90),N 
C *** FOR PRESSURE CORRECTION 


10 GO TO 1000 
C *** FOR U-VEL 
20 GO TO 1000 
C *** FOR V-VEL 
30 GO TO 1000 
C *** FOR W-VEL 
40 GO TO 1000 
C *** FOR K. ENERGY 
50 GO TO 1000 
C *** FOR DISSIPATION 
60 GO TO 1000 
C *** FOR TEMPERATURE 
70 GO TO 1000 
C *** FOR FLUID PROPERTIES 
80 GO TO 1000 
C *** CALLED FROM BOUNDP 
90 CONTINUE 
1000 CONTINUE 
RETURN 


END 


ON,’ 


‚К = BLOCK’ 
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з24 


С 


С 


C 
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大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 


SUBROUTINE OMEGA 
INCLUDE 'COM2D.FOR' 

جلا جلا جلا جلا جل جل جل جل جلا جلا جل جل جل جل جل جل جل جل جل جل جلا جلا جلا جلا جلا جلا جلا جلا جلا جلا جلا جلا جلا جلا جلا جلا جلا אד 
RETURN‏ 
END‏ 

جلا جلا جلا جلا جلا جل جلا جل جل جلا جل جل جل جل جلا جلا جلا جل جل جلا جلا جلا جلا جلا جلا جلا جلا جلا جلا جل جلا جلا جلا جلا جلا جلا جلا אד 
BLOCK DATA‏ 
INCLUDE 'COM2D.FOR'‏ 


大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 


**** INITIAL DATA(make sure that IN,JN equal IT,JT) 


DATA CC,IPREF,JPREF,MXIT,GAMMA/1.0E-05,10,10,55,0.5/ 
DATA CCTM,MXSTEP,DELT,STIME,MFREQ/1.0E-05,65,1.00,0.0,20/ 
PP U V W E D T VIS P 


DATA RP/1.0,1.0,1.0,1.0,1.0,1.0,1.0,0.5,0.1/ 
DATA NSWEEP/ 10, 1, 1, 1, 1 , 1 . 1 / 
DATA PR/1.0,1.0,1.0,1.0,1.0,1.0,3.0 / 
DATA PRT/1.0,1.0,1.0,1.0,1.0,1.3,0.9 / 


DATA DENSIT,VISCOS,SPHEAT/1.0,0.5E-3,1.0/ 
DATA CD1,CD2,CMU, EL0G, CAPPA/1.44,1.92,0.09,9.793,0.4187/ 
**** LOGICAL DATA 
DATA TURBUL, STEADY, UNSTDY, FTRAN , CONMAS, AXISYMM 
1 /.TRUE.,.TRUE., .FALSE., .TRUE., .TRUE., .TRUE./ 
DATA UPWIND,HYBRID,POWER/.TRUE.,.FALSE.,.FALSE./ 
DATA SLVE/3*.TRUE.,.FALSE.,2*. TRUE. , . FALSE. / 
DATA BSOR/9*.FALSE./ 
DATA IREAD,IWRITE/.FALSE. ,.TRUE./ 
PERIODIC BC 
DATA IPERIOD, JPERIOD/0,0/ 
DATA DP1,DP2/0.0,0.0/ 
**** READ GRID DATA 
DATA GRCELL,GRNODE/.TRUE.,.FALSE./ 
DATA IN,JN/67,24/ 
DATA JB1/14/ 
DATA YC/0.0,0.0,0.02,0.05,0.08,0.1,0.15,0.2,0.25 


1 ‚0.30,0.35,0.40,0.45,0.5 
1 ‚0.55,0.6,0.65,0.70,0.75 
1 ‚0.8,0.85,0.9,0.95,1.0/ 

DATA XC/0.0,0.0,0.03,0.06,0.1,0.15,0.2,0.25,0.3,0.35,0.4,0.45 
1 ‚0.50,0.55,0.6,0.65,0.7,0.75,0.8,0.85,0.9,0.95,1.0,1.05 
1 ,1.12,1.2,1.3,1.4,1.5,1.6,1.75,1.9,2.05,2.2,2.4,2.6,2.8 
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1 ,3.0,3.3,3.6,3.9,4.2,4.5,5.0,5.5,6.5,7.0,7.5,8.0,8.5,9.0 
1 ,9.7,10.5,11.5,12.5,14.0,16.0,18.0,21.0,25.0,29.0,33.0 
1 ,38.0,43.0,48.0,53.0,58.0/ 

END 


Natural Convection Evaporation - Chapter 5 

The USER file that follows shows implementation of the mass transfer equation in 
subroutine OMEGA. In this subroutine, first coefficients ofthe discretised equation 
(AE, AW, AN, and AS) are evaluated through CALL COEF(0,SC,0.9), where Pr, = 
0.9 is inserted though not required in actual calculations because the flow is laminar. 
Then, since there is no source term (case of inert mass-transfer), no update of Su 
and Sp is made.? Now, boundary conditions are given where the mass transfer flux 
AMW(L, I)atthe south wall is evaluated. Then, the equation is solved through CALL 
SOLVE(0,RPO,RSU), where RPO is the underrelaxation factor. In the ADSORB 
subroutine, the source term in the v equation is added to account for buoyancy. 
Density is taken to be constant. 


G 类 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 


С THIS 15 USER FILE NATURAL CONVECTION MASS TRANSFER 
С 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 

PROGRAM MAIN 

INCLUDE 'COM2D.FOR' 

OPENCUNIT=6,FILE=’00’ ) 

WRITE(S,^) 23 output is in 00 file -------------- 2 
C **** INITIAL DATA 

INM-IN-1 

JNM-JN-1 

SC-0.614 

OBR-50 

OWT=50 


WRITEC*,*)'GIVE ----- MXIT,IREAD,GRM ” 
READ(*,*)MXIT, TREAD, СКМ 
CALL MAINPR 
STOP 
END 
(CIR IK جل جل جلا שר‎ IK جل جلا‎ RIK IKK IK АЕ 
SUBROUTINE TITLE 
INCLUDE ’COM2D.FOR’ 


C kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 


3 [na combustion problem, source terms must be calculated for each Ф = wj of interest. 
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WRITE(6,*) ”大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 


WRITE(6,*)' WATER EVAPORATION BY NATURAL CONVECTION 
WRITE(6,*) ”大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 
RETURN 
END 
C 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 
SUBROUTINE INIT 
INCLUDE “COM2D.FOR， 
С 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 
C INITIAL GUESS (ONLY HEAT FLUX NEEDS TO BE SPECIFIED) 
00 10 I-1,IN 
DO 10 J=1,JN 
0(1,d)=0.0 
IFCI.LT.IB1)0(1,1)-1.0 
10 CONTINUE 
RETURN 
END 
С 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 
SUBROUTINE BSPEC 
INCLUDE 'COM2D.FOR' 


C 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 


C **** PROVIDE BOUNDARY & BLOCKED REGIONS 


CHARACTER*10 BLOCK,WEST,EAST,SOUTH, NORTH 
CHARACTER*10 INFLOW,EXIT1,SYMM,EXIT2,WALLT,WALLQ, PERIOD 
DATA  BLOCK,WEST, EAST, SOUTH, NORTH 
1 /’BLOCK’,’WEST’,’ EAST’,  SOUTH' , 'NORTH'/ 
DATA | INFLOW,EXITI1,SYMM,EXIT2,WALLT,WALLQ, PERIOD 
1  /'INFLOW',' EXIT1', 'SYMM', ' EXIT2' ,WALLT' , 'WHALLQ' , ' PERIOD'/ 
C ***** BLOCKED REGIONS 
CALL TAG(BLOCK,BLOCK,1B1,1B2-1,2,JB1-1) 
C ***** DEFINES W & E BOUNDARIES 
CALL TAG(WEST,SYMM,2,2, 2,JNM) 
CALL TAGC(WEST,WALLQ,IB2,IB2, 2,081-1( 
CALL TAGCEAST,WALLQ, INM, INM,2,JNM) 
CALL TAGCEAST,WALLQ, IB1-1,1B1-1,2,JB1-1) 
C ***** DEFINES N&S BOUNDARIES 
CALL TAGCNORTH,WALLQ,2,INM, JNM,JNM) 
CALL TAG(SOUTH,WALLQ,2,1B1-1,2,2) 
CALL TAGCSOUTH,WALLT,IB2,INM,2,2) 
CALL TAGCSOUTH,WALLT,IB1,IB2-1,JB1,JB1) 
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RETURN 
END 
C 类 大 大 大 大 大 大 大 大 大 大 类 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 
SUBROUTINE RESULT 
INCLUDE “COM2D.FOR” 
C kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 
CHARACTER*20 HEADER 
JSTEP=-1 
WRITEC6,*)' NITER-',NITER 
HEADER-' U-VEL’ 
CALL PRINTK(U,1,IN,1,JN,HEADER, JSTEP) 
HEADER-' V-VEL’ 
CALL PRINTK(V,1,IN,1,JN, HEADER, JSTEP) 
HEADER-' PRESS’ 
CALL PRINTK(P,1,IN,1,JN, HEADER, JSTEP) 
HEADER-' OMEGA’ 
CALL PRINTK(0O,1,IN,1,JN,HEADER, JSTEP) 
HEADER-' AMW' 
CALL PRINTKCAMW,1,IN,1,JN,HEADER, JSTEP) 
C CALCULATE NORALISED EVAPORATION RATE 
SUMWAT=0 . 0 
DX-0.0 
DO 1 I-2,IB1-1 
DX=DX+DXP (I) 





1 SUMWAT-SUMWAT-AMW(CI,1)*DXP(CI) 
VBAR=SUMWAT/DX 
SUMBR-0.0 
DO 2 I-IB2,INM 

2 SUMBR=SUMBR+AMW(T,1)*DXP(1) 


C DIFFUSION LIMIT 
B=(0-1)/(1-OWT) 
DL=VISCOS/SC/YC(JB1)*ALOG(1+B ) 


WRITE(6,*)’ DIFFUSION LIMIT = ',DL 

WRITE(6,*)' ACTUAL FLUX = ',VBAR 

RR=VBAR/DL 

WRITE(6,*)' RATIO = ',RR,' GRM = ',GRM,' B = ’,B 


WRITE(6,*)' SUMWAT = ',SUMWAT,' SUMBR = ',SUMBR 
WRITE(6,*)’ OWT = OBR = ',0WT 

IEND=30 

JEND=33 
OPEN(24, FILE-' EVAP. DAT’ ) 
WRITE(24,*)’TITLE = EVAPORATION’ 
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11 


12 


13 


14 


15 
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WRITE(24,*) "VARIABLES = XX YY UU VV 00 ' 
WRITE(24,*)’ZONE T = ZONE1, I = ',IEND 
‚о, ل‎ = ',JEND,' ,F = BLOCK’ 

DO 11 J=1,JEND 
WRITEC24,*) (Х(І), I-1, TEND) 

DO 12 J=1,JEND 

МКІТЕ(24,%) (Ү(Ј), 1=1, TEND) 

DO 13 J=1,JEND 

WRITE(24,*)(UCI,J),I=1, TEND) 

DO 14 J=1,JEND 

WRITE(24,*)(V(I,J),I=1, TEND) 

DO 15 J=1,JEND 

WRITEC24,*) COCI,J), I-1, TEND) 

CLOSE(24) 

RETURN 

END 


С 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 


SUBROUTINE ADSORB(NN) 
INCLUDE ’COM2D.FOR’ 


C 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 


С 大 大 大 


10 


С 大 大 大 


20 


С 大 大 大 


30 


31 


С 大 大 大 


40 


С 大 大 大 


50 


С 大 大 大 


60 


С 大 大 大 


70 


С 大 大 大 


80 


С 大 大 大 


N-NN 
GO TO (10,20,30,40,50,60,70,80,90),N 
FOR PRESSURE CORRECTION 
GO TO 1000 
FOR U-VEL 
GO TO 1000 
FOR V-VEL 
DO 31 J-2,JNM 
DO 31 I-2,INM 
SUCI,J)-SUCI,J)*GRM*O(CI,J)*VOLCI,O)*(1-NTAGCI,J)) 
60 TO 1000 
FOR W-VEL 
60 TO 1000 
FOR K. ENERGY 
60 TO 1000 
FOR DISSIPATION 
60 TO 1000 
FOR TEMPERATURE 
60 TO 1000 
FOR FLUID PROPERTIES 
60 TO 1000 
CALLED FORM BOUNDP - FOR PRESSURE 
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90 CONTINUE 

1000 CONTINUE 
RETURN 
END 


C 类 大 大 大 大 大 大 大 大 大 大 类 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 


SUBROUTINE OMEGA 
INCLUDE “COM2D.FOR” 

С kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 

C SOLVE FOR MASSFRACTION 
CALL COEF(0,SC,0.9) 

C BOUNDARY CONDITIONS 
DO 2 J=2,JNM 
AW(2,J)=0.0 
0(1,J)=0(2,J) 

AE(INM,J)=0.0 
O(IN,J)=0(INM,J) 
IF(J.LT.JB1)THEN 
AE(IB1-1,J)=0.0 
O(IB1,J)=0(IB1-1,J) 
AW(IB2,J)=0.0 
O(IB2-1,J)=0(IB2,J) 
ENDIF 

2 CONTINUE 
DO 3 I-2,INM 

C NORTH WALL 
ANCI,JNM)-0.0 
OCI,JN)-O(I,JNM) 

C TIP WALL 
IF(I.GT.IB1-1.AND.I.LT.IB2)THEN 
AS(1,JB1)=0.0 
0)1,081-1(=0)1,081( 

ENDIF 

C WALL-WATER AND BRINE 
IF(I.LE.IB1-1.0R.I.GE.IB2)THEN 
DELTA-Y(2)-Y(1) 
TERM-VIS(CI,1)/DELTA/SC 
OTT-OWT 
IFCI.GE.IB2)OTT-OBR 
B-(0(I,2)-0(I,1))/(0(I,1) -0TT) 
AMW(1,1)=TERM*ALOG(1+B) 

C WALL VELOCITY 
VCI, 1)-AMW CI, 1) /КНО(І, 1) 
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ENDIF 
3 CONTINUE 
RPO-1.0 
DO 4 J=2,JNM 
DO 4 I=2,1NM 
SUM-AWCI,J)TAECI,O)TASCI,O)TANCI,O) 
4 AP(I,J)=(SUM+SP(T,J))/RPO 
C SOLVE THE O EQN 
CALL SOLVE(CO,RPO,RSU) 
DO 5 J-1,JN 
DO 5 I-1,IN 
IF(0CI,J).GT.1.0)0(1,0)-1.0 
5 IF(0CI,J).LT.0.0)0(1,2)-0.0 
RETURN 
END 
C 大 大 大 大 大 大 大 类 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 
BLOCK DATA 
INCLUDE 'COM2D.FOR" 


C 大 大 大 大 大 类 大 类 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 


С **** INITIAL DATA(make sure that IN,JN equal IT,JT) 


DATA CC,IPREF,JPREF,MXIT,GAMMA/1.0E-05,10,10,55,0.5/ 
DATA CCTM,MXSTEP,DELT,STIME,MFREQ/1.0E-05,65,1.00,0.0,20/ 


C PP U V W E D T VIS P 
DATA RP/1.0,0.5,0.5,1.0,1.0,1.0,1.0,1.0,0.1/ 
DATA NSWEEP/ 10, 1, 1, 1, 1 , 1 / 
DATA PR/1.0,1.0,1.0,1.0,1.0,1.0,0.7 / 
DATA PRT/1.0,1.0,1.0,1.0,1.0,1.3,0.9 / 


DATA DENSIT,VISCOS,SPHEAT/1.0,1.0,1.0/ 

DATA CD1,CD2,CMU, EL0G, CAPPA/1.44,1.92,0.09,9.793,0.4187/ 
C **** LOGICAL DATA 

DATA TURBUL, STEADY, UNSTDY, FTRAN , CONMAS, AXISYMM 

1 /.FALSE.,.TRUE., .FALSE., .FALSE., .FALSE., .FALSE./ 

DATA UPWIND,HYBRID,POWER/.TRUE.,.FALSE.,.FALSE./ 

DATA SLVE/3*.TRUE.,4*.FALSE./ 

DATA BSOR/2*.FALSE.,.TRUE.,6*.FALSE./ 

DATA IREAD,IWRITE/.FALSE. ,.TRUE./ 
C PERIODIC BC 

DATA IPERIOD, JPERIOD/0,0/ 

DATA DP1,DP2/0.0,0.0/ 
C **** READ GRID DATA 

DATA GRCELL,GRNODE/.TRUE.,.FALSE./ 
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DATA IBI,IB2,JB1,IN,JN/16,21,24,37,37/ 
C h=2 AND Н = 8 
DATA YC/0.0,0.0,0.02,0.04,0.07,0.12,0.18,0.25,0.35,0.5 


1 ,0.65,0.8,0.95,1.1,1.25,1.4,1.55,1.7,1.8,1.85,1.9 
1 ,1.95,1.98,2.0 
1 ‚2.02,2.05,2.1,2.2,2.4,2.8,3.3,4.0,5.0,6.0,7.0,7.5,8.0/ 


С 1/2 = 8, t = 0.1, 1/2=0.5 

DATA ХС/0.0,0.0,0.02,0.04,0.07,0.1,0.15,0.2,0.25,0.3,0.35,0.4 
‚0.43,0.46,0.48,0.5 
‚0.52,0.54,0.56,0.58,0.6 
‚0.62,0.65,0.7,0.8,0.9,1.0,1.2,1.5,2.0,3.0,4.0,5.0 
,6.0,7.0,7.5,8.0/ 


PR rA LA 


END 


Library File LIB2D.FOR 
С ххх кк IK جل جل جلا‎ IK جل جل جلا‎ IK КК جلا‎ IKK IK AIK ARK 
C THIS IS LIBRARY FILE LIB2D.FOR ---- А W DATE 
C RESIDUALS ARE STORED FOR PLOTTING IN SUBROUTINE EQN 
С Оххх ККК אב אב אב אב جل جل‎ КККК אכ אכ אכ אכ אכ 3 جل‎ КККК 
SUBROUTINE MAINPR 
INCLUDE ’COM2D.FOR’ 
С хх кк КК K K جل جل جلا‎ IK IK IKK جل جلا‎ AIK IK AIK IKK 
NPERIOD=0 
CALL TITLE 
CALL GRID 
CALL INITIA 
CALL BSPEC 
CALL INIT 
CALL PROPS 
CALL INDATA 
CALL INFLUX 
IFCIREAD) CALL IPT 
IFCUNSTDY)CALL UPDATE 
CALL EQN 
CALL BOUNDP 
IFCIWRITE)CALL OPT 
CALL RESULT 
RETURN 
END 
(CIR RIK IK جل جل جلا‎ IK جل جل جلا‎ IK جل جلا جل‎ IK RIK AIK IK AIK IKK 
SUBROUTINE INITIA 
INCLUDE ’COM2D.FOR’ 
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C 大 大 大 大 大 大 大 火炎 大 大 大 大 火炎 大 大 大 大 火炎 大火 大 火炎 大大 类 大 大 火炎 大 大 大 火炎 大 大 大 大 大 
DO 1 J-1,JN 
DO 1 I-1,IN 
PP(I,J)-0.0 
P(I,J)=0. 
UCI,J)-0. 
ү(1,0)=0. 
WCI,J)-0. 
E(I,J)=0. 
DCI,J)-0. 
T(I,J)-0. 
QW(I,J)-0.0 
VISCI,J)-VISCOS 
VIST(I,J)=0.0 
RHOCI,J)-DENSIT 
RHOOCI,J)-DENSIT 
AW(I,J)-0.0 
AE(I,J)-0.0 
АЅ(1,Ј)=0.0 
AN(CI,J)-0.0 
APU(I ,J)=GREAT 
APV(I ,J)=GREAT 
AP1 (1,J)=GREAT 
AP(CI,J)-GREAT 
NTAG(I,J)=0 
NTAGW(I,J)=0 
NTAGE(1,J)=0 
NTAGSCI,J)-0 

1 NTAGNCI,J)-0 
RETURN 
END 

С ЖЖЖЖ Kok Kok 36 אכ‎ Kok Kok Kok جل جلا‎ kk Kok ل جل جلا‎ КККК ЖСК КК 
SUBROUTINE TAG(CCHARI,CHAR2,IB,IL,JB,JL) 
INCLUDE 'COM2D.FOR' 

(RR IR К IK RIK IKK جل جل‎ RIK IKK IK AIK IKK IK A 
CHARACTER*10 CHARI,CHAR2 
IF(CHAR2.EQ. ' PERIOD’ )NPERIOD=1 
DO 1 J=JB,JL 
DO 1 I-IB,IL 
IF(CHAR1.EQ. 'BLOCK' ) THEN 
NTAG(I,J)=1 
GO TO 1 


O O O 5 5 о о 
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ENDIF 


IF (CHARI.EQ. WEST") THEN 


IFC(CHAR2. 
IF(CHAR2. 
IF(CHAR2. 
IF(CHAR2. 
IF(CHAR2. 
IF(CHAR2. 
IF(CHAR2. 


EQ. 
EQ. 
EQ. 
EQ. 
EQ. 
EQ. 
EQ. 


" INFLOW’ )NTAGW(I,J)-11 
*SYMM’  )NTAGW(I,2)-12 
"EXIT1' =) NTAGW(1,J)=13 
"EXIT2’  )NTAGW(I,J)-15 
"WALLT' )NTAGW(I,J)=14 
"WALLQ* )NTAGW(I,J)=16 
*PERIOD’ )NTAGW(I,J)-17 


ELSE IF(CHAR1.EQ. ’ EAST’ ) THEN 


IF(CHAR2. 
IF(CHAR2. 
IF(CHAR2. 
IF(CHAR2. 
IF(CHAR2. 
IF(CHAR2. 
IF(CHAR2. 


EQ. 
EQ. 
EQ. 
EQ. 
EQ. 
EQ. 
EQ. 


" INFLOW’ )NTAGE(I,J)=21 
*SYMM’  )NTAGE(I,J)-22 
"EXIT1' )NTAGECI,J)-23 
'EXIT2' ))NTAGE(CI,J)-25 
"WALLT' )NTAGE(I,J)=24 
"WALLQ' )NTAGE(I,J)=26 
"PERIOD' )NTAGE(CI,J)-27 


ELSE IF(CHARI.EQ. ’SOUTH’ )THEN 


IF(CHAR2. 
IF(CHAR2. 
IF(CHAR2. 
IF(CHAR2. 
IF(CHAR2. 
IF(CHAR2. 
IF(CHAR2. 


EQ. 
EQ. 
EQ. 
EQ. 
EQ. 
EQ. 
EQ. 


" INFLOW’ )NTAGS (I ,J)=31 
*SYMM’ )NTAGS(I,J)=32 
"EXIT1’ )NTAGSCI,J)-33 
'EXIT2' )МТАа5(1,Ј)=35 
"WALLT' )NTAGS(I,J)=34 
"WALLQ* )NTAGS(I,J)=36 
*PERIOD’ )NTAGSCI,J)-37 


ELSE IF(CHAR1.EQ. 'NORTH') THEN 


IF(CHAR2. 
IF(CHAR2. 
IF(CHAR2. 
IF(CHAR2. 
IF(CHAR2. 
IF(CHAR2. 
IF(CHAR2. 


ENDIF 

1 CONTINUE 
RETURN 
END 


C 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 


EQ. 
EQ. 
EQ. 
EQ. 
EQ. 
EQ. 
EQ. 


" INFLOW’ )NTAGN(I,J)=41 
*SYMM’  )NTAGN(I,2)-42 
"EXIT1’ )NTAGNCI,J)-43 
'EXIT2' =) NTAGN(I,J)=45 
"WALLT' )NTAGN(I,J)=44 
"WALLQ* )NTAGN(I,J)=46 
*PERIOD’ )NTAGN(I,J)-47 


SUBROUTINE BOUND(NN) 
*COM2D. FOR’ 


INCLUDE 


С 类 大 大 大 大 大 大 大 大 大 大 类 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 


N=NN 
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DO 1 J—-2,JNM 
00 1 I-2,INM 
VOLP-VOL(CI,J) 
RHOP-RHO(I,J) 

C *** BLOCKED REGION 
IF(NTAGCI,J).EQ.1)THEN 
IF(N.EQ.2) SUCI, J) -GREAT*UCI,J) 
IF(N.EQ.3)SUCI,J)-GREAT*V(CI,J) 
IF(N.EQ.4)SUCI, J)-GREAT*W(CI,J) 
IF(N.EQ.5)SUCI,J)-GREAT*E(I,J) 
IF(N.EQ.6)SUCI,J)-GREAT*D(I,J) 
IF(N.EQ.7)SUCI,J)-GREAT*T(I,J) 
SP(I,J)-GREAT 
G0 TO 1 
END IF 

C *** WEST BOUNDARY 
LW-NTAGW(CI,J) 

IF(LW.EQ.0)G0 TO 100 
AWNOW-AWCI,J) 





C INLET 
IFC(LW.EQ. 11. OR. LW. EQ. 17) THEN 
AW(I,J)=0.0 


IF(N.EQ.2)SU(I,J)=AWNOW*U(I-1,J)+SU(I,J) 
IF(N.EQ.3)SU(I,J)=AWNOW*V(I-1,J)+SU(I,J) 
IF(N.EQ.4)SU(I,J)=AWNOW*W(I-1,J)+SU(I,J) 
IF(N.EQ.5)SU(I,J)=AWNOW*E(I-1,J)+SU(I,J) 
IF(N.EQ.6)SU(I,J)=AWNOW*D(I-1,J)+SU(I,J) 
IF(N.EQ.7)SU(I,J)=AWNOW*T(I-1,J)+SU(I,J) 
SP(I,J)=AWNOW+SP(I,J) 
ENDIF 

С SYMMETRY 
IF(LW.EQ.12) THEN 
IF(N.EQ.2)SP(1,d)=AWNOW+SP (I,J) 
AW(I,J)=0.0 
IF(N.EQ.2)U(I-1,2)-0.0 
IF(N.EQ. 3) VCI-1,0)-V(CI,J) 
IF(N.EQ. 40WCI-1,0)0-WCI,J) 
IF(N.EQ.5)ECI-1,0)-E(CI,J) 
IF(N.EQ. 6)DCI-1,0)-D(CI,J) 
IF(N.EQ.7)TCI-1,0)-TCI,J) 
ENDIF 

C EXIT 
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IFCLW.EQ.13.0R.LW.EQ.15) THEN 

AWCI,J)-0.0 

RATIO-(XCI)-XCCI)) /DXMICITl) 
IFCLW. EQ. 13) RATIO-0.0 

IF(N.EQ.2)UCI-1,0)-UCI,J) -RATIO*(CUCIT1,J)-U(CI,J)) 
ТЕМ. EQ. 3)VCI-1,0)-VCI,J) -RATIO*(VCITl,J)-V(I,J)) 
ТЕМ. EQ. 4)WCI-1,0)-WCI,J) -RATIO* WC IF1, J) -М(І,Ј)) 
IF(N.EQ. 5) ECI-1,0)-ECI,J) -RATIO*(ECIT1,J)-E(I,J)) 
IF(N.EQ.6)DCI-1,0)-DCI,J)-RATIO*(DCITl,J)-D(I,J)) 
IF(N.EQ.7)TCI-1,0)-TCI,J) -RATIO*(TCITl,J)-T(I,J)) 


ENDIF 

C WALL 
IF(LW.EQ.14.0R. LW. EQ. 16) THEN 
AWCI,J)-0.0 


DELTA-XCI)-XC(CI) 

AREA-R(J)*DYP(J) 

UWAL-UCI-1,J) 

VWAL-VCI-1,J) 

WWAL-WCI-1,2) 

VISWAL-VISCI-1,2) 
ANG-ATAN(CWCI,O0)/(VCI,J) SMALL) ) 
VT-(CVCI,J) -VWAL) *COS CANG)--CWCI , ل‎ ( -MWAL) *SINCANG) 
VTTAU-CMU**0.25*SQRTCABSCECI,J)0)) 
YPLUS-VTTAU*DELTA*RHOP /VISWAL 
EYPLUS-ELOG*YPLUS 

TMULT-VISWAL*AREA/DELTA 
TAUWCI-1,J)-VISWAL*VT/DELTA 
IFCTURBUL)TAUWCI-1,J0)-RHO(CI-1,J)*VTTAU**2 
IF(YPLUS.GT.11.6) TMULT-RHOP*CAPPA*VTTAU*AREA/ALOG(EYPLUS) 
IF(N.EQ.2) THEN 
SUCI,J)-AWNOW*UWALTSUCI,J) 
SPCI,J)-AWNOW*SP(CI,J) 

ELSE IF(N.EQ.3) THEN 
SUCI,J)-TMULT*VWALTSUCI,J) 
SPCI,J)-TMULT*SP(CI,J) 

ELSE IF(N.EQ.4) THEN 
SUCI,J)-TMULT*WWALTSU(CI,J) 
SPCI,J)-TMULT*SP(CI,J) 

ELSE IF(N.EQ.5) THEN 
GENR-TMULT*VT/AREA*VT/DELTA 
TERM-RHOP**2*CMU*ABSCECI,J))/VISWAL 
IF(YPLUS.GT.11.6) 
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1 TERM-RHOP*VTTAU*ALOGCEYPLUS)*CMU**0.5/CAPPA/DELTA 
SUCI,J)-GENR*VOLP-*SUCI,J) 
SPCI,J)-TERM*VOLP-SP(CI,J) 

ELSE IF(N.EQ.6) THEN 
TERM-VTTAU**3/CAPPA/DELTA 

SUCI,J)-GREAT*TERM 

SP(I,J)-GREAT 

ELSE IF(N.EQ.7) THEN 

IFCTURBUL)THEN 

UPLUS-ABS(CVT) /VTTAU 
STANTON-STAN(CUPLUS , YPLUS, PRC7) , PRTC(7)) 
TERM=RHOP*ABS (VT) *AREA*STANTON 

ELSE 

TERM-VISWAL/(PR(N) *DELTA) *AREA 

ENDIF 

IF(LW.EQ. 14) THEN 

SUCI,J)-TERM*T(CI-1,J)*SU(I,J) 
SPCI,J)-TERM-SP(I,J) 
QWCI-1,J)-TERM/AREA*(CTCI-1,0)-TCI,J)) *SPHCI-1,J) 
ELSE IFCLW. EQ. 16) THEN 

SUCI,J)-QWCI-1,]9) *AREA/SPHCI-1,J)4SU(CI, J) 
TCI-1,0)20WCI-1,0) /TERM*AREA/SPHCI-1,J0)*T(I,J) 


ENDIF 

ENDIF 

ENDIF 
C *** EAST BOUNDARY 
100 LE-NTAGE(CI,J) 


IF(LE.EQ.0)G0 TO 200 
AENOW-AE(I,J) 

C INLET 
IF(LE. EQ. 21.0R.LE. EQ. 27) THEN 
AECI,J)-0.0 
IF(N.EQ.2)SUCI,J)-AENOW*UCITl,J)TSU(CI,J) 
IF(N.EQ.3)SUCI,J)-AENOW*VCITl,J)TSUCI,J) 
IF(N.EQ.4)SUCI,J)-AENOW*WCITl,J)TSU(CI,J) 
IF(N.EQ.5)SUCI,J)-AENOW*ECITl,J)TSU(CI,J) 
IF(N.EQ.6)SUCI,J)-AENOW*DCITl,J)TSU(CI,J) 
IF(N.EQ.7)SUCI,J)-AENOW*TCITl,J)TSU(CI,J) 
ЅР(І, 0) =АЕМОМ+5Р(І, 0) 
ENDIF 

C SYMMETRY 
IF(LE.EQ.22)THEN 
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C EXIT 


C WALL 


IF(N.EQ.2) SPCI,J)-AENOWTSP(CI,J) 
AECI,J)-0.0 


IF(N. 
IF(N. 
IF(N. 
IF(N. 
IF(N. 
IF(N. 
ENDIF 


EQ. 
EQ. 
EQ. 
EQ. 
EQ. 
EQ. 


2)U(I+1,J)=0.0 

3)V(It+1,J)=V(1,J) 
4)W(I+1,J)=W(I,d) 
5)E(I+1,J)=E(I,J) 
6)D(I+1,J)=D(I,J) 
(1,0)ז=(1+1,0)ך(7‎ 


IF(LE.EQ.23.0R.LE.EQ.25) THEN 
AECI,J)-0.0 
RATIO-C(XCCIT1)-XCI))/DXMICI) 
IFCLE. EQ. 23) RATIO-0.0 


IF(N. 
IF(N. 
IF(N. 
IF(N. 
IF(N. 
IF(N. 
ENDIF 


EQ. 
EQ. 
EQ. 
EQ. 
EQ. 
EQ. 


2)UCI*1,J)-UCI, J)cFRATIO*(UCI,J)-UCI-1,20)) 
3)VCI-1,J)-VCI, J)FRATIO*(VCI,J)-VCI-1,0)) 
4)W(I+1,J)=W(I,J)+RATIO*(W(I,J)-W(I-1,J)) 
5)E(I+1,J)=E(I,J)+RATIO*(E(I,J)-E(I-1,J)) 
6)D(I+1,J)=D(I,J)+RATIO*(D(I,J)-D(I-1,J)) 
7)T(I+1,J)=T(I,J)+RATIO*(T(I,J)-T(I-1,J)) 


IF(LE.EQ.24.0R.LE.EQ.26) THEN 

AE(I,J)=0.0 

DELTA=XC(I+1)-X(I) 

AREA=R(J)*DYP(J) 

UWAL=U(I+1,J) 

VWAL-VCIT1,J) 

WWAL-WCITl,J) 

VISWAL=VIS(I+1,J) 
ANG=ATAN(W(I,J)/(V(I,J)+SMALL)) 
VT=(V(I,J)-VWAL)*COS(ANG)+(W(I,J)-WWAL)*SIN(ANG) 
VTTAU=CMU**0.25*SQRT(ABS(E(I,J))) 
YPLUS=VTTAU*DELTA*RHOP/VISWAL 
EYPLUS-ELOG*YPLUS 

TMULT-VISWAL*AREA/DELTA 
TAUWCITl,J)--VISWAL*VT/DELTA 

IFCTURBUL) TAUW( 1+1 , J )=RHO(I+1,J)*VTTAU**2 


IF(YPLUS.GT.11.6) TMULT-RHOP*CAPPA*VTTAU*AREA/ALOG(EYPLUS) 


IF(N.EQ.2) THEN 
SUCI,J)-AENOW*UWALTSU(CI,J) 
SPCI,J)-AENOW*SP(CI,J) 
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ELSE IF(N.EQ.3) THEN 
SUCI,J)-TMULT*VWALTSUCI,J) 
SPCI,J)-TMULT*SP(I,J) 

ELSE IF(N.EQ.4) THEN 
SUCI,J)-TMULT*WWALTSUCI,J) 
SPCI,J)-TMULT*SP(CI,J) 

ELSE IF(N.EQ.5) THEN 
GENR-TMULT*VT/AREA*VT/DELTA 
TERM-RHOP**2*CMU*ABS(CECI,J))/VISWAL 
IF(YPLUS.GT.11.6) 

1 TERM-RHOP*VTTAU*ALOG(CEYPLUS)*CMU**0.5/CAPPA/DELTA 
SUCI,J)-GENR*VOLP-SUCI,J) 
SP(1,J)=TERM*VOLP+SP(1,J) 

ELSE IF(N.EQ.6) THEN 
TERM=VTTAU**3/CAPPA/DELTA 

50(1,0)=@КЕАТ*ТЕВМ 

SP(I,J)-GREAT 

ELSE IF(N.EQ.7) THEN 

IFCTURBUL)THEN 

UPLUS-ABSCVT) /VTTAU 
STANTON-STANCUPLUS , YPLUS, PR(7),PRT(7)) 
TERM-RHOP*ABS (VT) *AREA*STANTON 

ELSE 

TERM=V ISWAL/(PR(N)*DELTA)*AREA 

ENDIF 

IF(LE.EQ.24) THEN 

SU(I,J)=TERM*T(I+1,J)+SU(I,J) 
SP(I,J)=TERM+SP(I,J) 
QW(I+1,J)=TERM/AREA*(T(I+1,J)-T(I,J))*SPH(I+1,J) 
ELSE IF(LE.EQ.26)THEN 
SU(I,J)=QW(I+1,J)*AREA/SPH(I+1,J)+SU(I,J) 
T(I+1,J)=QW(I+1,J)/TERM*AREA/SPH(I+1,J)+T(I,J) 


ENDIF 

ENDIF 

ENDIF 
C *** SOUTH BOUNDARY 
200 LS-NTAGSCI,J) 


IF(LS.EQ.0)6G0 TO 300 
ASNOW-AS(CI,J) 

C INLET 
IF(LS.EQ.31.0R.LS. EQ.37) THEN 
ASCI,J)-70.0 
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IF(N.EQ.2)SUCI,J)-ASNOW*UCI,J-1)*SU(CI,J) 
IF(N.EQ.3)SUCI,J)-ASNOW*V(I,J-1)4SU(CI,J) 
IF(N.EQ.4)SUCI,J)-ASNOW*W(CI,J-1)*SU(CI,J) 
IF(N.EQ.5)SUCI,J)-ASNOW*ECI,J-1)4SU(CI,J) 
IF(N.EQ.6)SUCI,J)-ASNOW*D(CI,J-1)4SU(CI,J) 
IF(N.EQ.7)SUCI,J)-ASNOW*T(CI,J-1)4SU(CI,J) 
SPCI,J)-ASNOW*SP(CI,J) 

ENDIF 


C SYMMETRY 


C EXIT 


C WALL 


IFCLS.EQ.32) THEN 

IF(N.EQ.3) SPCI,J)-ASNOWTSP(CI,J) 
AS(CI,J)-0.0 
IF(N.EQ.3)V(I,J-1)-0.0 
IF(N.EQ.2)UCI,J- 1)2U(T, 0) 

IF(N. EQ. 40WCI,J- D)-WCI , 2) 
IF(N.EQ.5)ECI,J- I)-ECI, 2) 
IF(N.EQ.6)DCI,J-1)-D(I,0) 
IF(N.EQ.7)T(1,J-1)=T(T,d) 

ENDIF 


IF(LS.EQ.33.0R.LS.EQ.35) THEN 
RATIO-(YCJ) -YCCJ) )/DYMI (J+1) 
IF(LS.EQ.33)RATIO=0.0 

ASCI,J)-0.0 

IF(N.EQ.2)UCI,J-1)-UCI,J) -RATIO*CUCI,J*1)-U(CI,J)) 
ТЕМ. EQ. 3)VCI,J-1)-VCI, J) -RATIO*(VCI,OJ*1)-V(I,J)) 
ТЕМ. EQ. 4)WCI,J- 1)-WCI, J) -RATIO* WC I , Ј+1) -W( I ,J)) 
IF(N.EQ.5)ECI,J-1)-ECI,J) -КАТІОХ (ЕСІ, Ј+1) -Е(І,Ј)) 
IF(N.EQ.6)DCI,J- 1)-DCI, J) -КАТІОЖ(Ю(І, Ј+1) -р(І,Ј)) 
IF(N.EQ.7)TCI,J-1)- TCI, J) -КАТІОЖ (ТІ, Ј+1) -Т(І,Ј)) 
ENDIF 


IF(LS.EQ.34.0R.LS.EQ0.36) THEN 

AS(CI,J)-0.0 

DELTA=Y(J)-YC(J) 

AREA=RC (J )*DXP(T) 

UMAL-UCI,J-1) 

VWAL-VCI,J-1) 

WWAL-WCI,J-1) 

VISWAL=VIS(I,J-1) 
ANG=ATAN(W(I,J)/(U(I,J)+SMALL)) 
VT=(U(I,J)-UWAL)*COS(ANG)+(W(I,J)-WWAL)*SIN(ANG) 
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VTTAU-CMU**0.25*SQRTCABSCECI,J))) 
YPLUS-VTTAU*DELTA*RHOP /VISWAL 
EYPLUS-ELOG*YPLUS 

TMULT-VISWAL*AREA/DELTA 
TAUWCI,J-1)-VISWAL*VT/DELTA 
IFCTURBUL)TAUW(I,J-1)-RHOCI,J-1)*VTTAU**2 
IF(YPLUS.GT.11.6) TMULT-RHOP*CAPPA*VTTAU*AREA/ALOG(CEYPLUS) 
IF(N.EQ.2) THEN 
SUCI,J)-TMULT*UWALTSUCI,J) 
SPCI,J)-TMULT*SP(I,J) 

ELSE IF(N.EQ.3) THEN 
SUCI,J)-ASNOW*VWALTSUCI,J) 
SPCI,J)-ASNOW*SP(CI,J) 

ELSE IF(N.EQ.4) THEN 
SUCI,J)-TMULT*WWALTSUCI,J) 
SPCI,J)-TMULT*SP(I,J) 

ELSE IF(N.EQ.5) THEN 
GENR-TMULT*VT/AREA*VT/DELTA 
TERM-RHOP**2*CMU*ABS(CECI,J))/VISWAL 
IF(YPLUS.GT.11.6) 

1 TERM-RHOP*VTTAU*ALOGCEYPLUS) *CMU**0.5/CAPPA/DELTA 
SUCI,J)-GENR*VOLP-SUCI,J) 
SP(I,J)-TERM*VOLP-*SP(CI,J) 

ELSE IF(N.EQ.6) THEN 
TERM-VTTAU**3/CAPPA/DELTA 

SUCI,J)-GREAT*TERM 

SP(I,J)-GREAT 

ELSE IF(N.EQ.7) THEN 

IFCTURBUL)THEN 

UPLUS-ABS(CVT) /VTTAU 
STANTON-STAN(CUPLUS , YPLUS, PRC7) , PRTC(7)) 
TERM-RHOP*ABS (VT) *AREA*STANTON 

ELSE 

TERM-VISWAL/(PR(N) *DELTA) *AREA 

ENDIF 

IF(LS.EQ.34) THEN 

SUCI,J)-TERM*T(CI,J-1)*SU(CI,J) 
SPCI,J)-TERM-SP(I,J) 

QWCI,J-1)-TERM/AREA* (TCI,J-1)-TCI,J)) *SPH(I,2-1) 
ELSE IF(LS.EQ.36)THEN 

SUCI,J)-QWCI,J-1) *AREA/SPHCI,J-1)4SUCI, J) 
T(1I,J-1)=QW(T,J-1)/TERM*AREA/SPH(1,J-1)+T(I,J) 
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ENDIF 
ENDIF 
ENDIF 


C *** NORTH BOUNDARY 

300 LN=NTAGN(I,J) 
IFCLN.EQ.0)G0 TO 1 
ANNOW-AN(I,J) 


C INLET 


IF(LN.EQ.41.0R. LN. EQ. 47) THEN 
AN(I,J)=0.0 


IF(N. 
IF(N. 
IF(N. 
IF(N. 
IF(N. 
IF(N. 


EQ. 
EQ. 
EQ. 
EQ. 
EQ. 
EQ. 


2)SUCI,J)-ANNOW*U(CI,J*1)*SU(I, J) 
3)SUCI,J)-ANNOW*V(I,J*1)*SU(I,J) 
4)SUC(I,J)=ANNOW*W(T,J+1)+SU(T,J) 
5)SU(I,J)=ANNOW*E(I,J+1)+SU(I,J) 
6)SU(I,J)=ANNOW*D(I,J+1)+SU(I,J) 
7)SU(I,J)=ANNOW*T(I,J+1)+SU(I,J) 


SP(I,J)=ANNOW+SP(I,J) 


ENDIF 
C SYMMETRY 


IFCLN.EQ.42) THEN 
IF(N.EQ.3) SPCI,J)-ANNOWTSP(CI,J) 
ANCI,J)-0.0 


IF(N. 
IF(N. 
IF(N. 
IF(N. 
IF(N. 
IF(N. 
ENDIF 
C EXIT 


EQ. 
EQ. 
EQ. 
EQ. 
EQ. 
EQ. 


3)V(I,J*1)-0.0 

2)UCI,J-1)-U(I,0) 
4)WCI,J-1)-2WCI,0) 
5)ECI,J*1)-ECI,J) 
6)р(І,Ј+1)=р(І,Ј) 
(1,0)ז=(1,0+1)ך(7‎ 


IF(LN.EQ.43.0R. LN. EQ.45) THEN 
ANCI,J)-0.0 
RATIO-CYCCO1)-Y(CJ)) /DYMICJ) 
IFCLN. EQ. 43) КАТІ0=0.0 


IF(N. 
IF(N. 
IF(N. 
IF(N. 
IF(N. 
IF(N. 
ENDIF 
C WALL 


EQ. 
EQ. 
EQ. 
EQ. 
EQ. 
EQ. 


2)UCI,J*1)-UCI, J)cFRATIO*(UCI,J)-UCI,J-1)) 
3)VCI,J*1)-2VCI, J)HFRATIO*(VCI,J)-VCI,J-1)) 
4)W(I,J+1)=W(I,J)+RATIO*(W(I,J)-W(I,J-1)) 
5)E(I,J+1)=E(I,J)+RATIO*(E(I,J)-E(I,J-1)) 
6)D(I,J+1)=D(I,J)+RATIO*(D(I,J)-D(I,J-1)) 
7)T(I,J+1)=T(I,J)+RATIO*(T(I,J)-T(I,J-1)) 
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IF(LN.EQ.44.0R.LN.EQ.46) THEN 

ANCI,J)-0.0 

DELTA=YC(J+1)-Y(J) 

AREA=RC (J+1)*DXP(T) 

UWAL=U (I ,J+1) 

VWAL=V ) 1 (1+ט,‎ 

WWAL=W( 1 (1+ט,‎ 

VISWAL=VIS(I,J+1) 
ANG=ATAN(W(T,J)/(UCT,J)+SMALL) ) 
VT-CUCI,J) -UWAL) *COS(ANG)+(W(1,d)-WWAL)*SIN(ANG) 
VTTAU-CMU**0.25*SQRTCABSCECI,J))) 
YPLUS-VTTAU*DELTA*RHOP/VISWAL 
EYPLUS-ELOG*YPLUS 

TMULT-VISWAL*AREA/DELTA 
TAUWCI,J*1)--VISWAL*VT/DELTA 

IF(TURBUL) TAUW(I ,J+1)=RHO(T ,J+1)*VTTAU**2 
IF(YPLUS.GT.11.6) TMULT-RHOP*CAPPA*VTTAU*AREA/ALOG(EYPLUS) 
IF(N.EQ.2) THEN 
SUCI,J)-TMULT*UWALTSUCI,J) 
SPCI,J)-TMULT*SP(I,J) 

ELSE IF(N.EQ.3) THEN 
SUCI,J)-ANNOW*VWALTSUCI,J) 
SPCI,J)-ANNOW*SP(I,J) 

ELSE IF(N.EQ.4) THEN 
SUCI,J)-TMULT*WWALTSUCI,J) 
SPCI,J)-TMULT*SP(I,J) 

ELSE IF(N.EQ.5) THEN 
GENR-TMULT*VT/AREA*VT/DELTA 
TERM-RHOP**2*CMU*ABSCECI,J))/VISWAL 
IF(YPLUS.GT.11.6) 

1 TERM-RHOP*VTTAU*ALOGCEYPLUS)*CMU**0.5/CAPPA/DELTA 
SUCI,J)-GENR*VOLP-SUCI,J) 
SPCI,J)-TERM*VOLP-SP(CI,J) 

ELSE IF(N.EQ.6) THEN 
TERM=VTTAU**3/CAPPA/DELTA 
50(1,0)=@КЕАТ*ТЕВМ 

SP(I,J)-GREAT 

ELSE IF(N.EQ.7) THEN 

IFCTURBUL)THEN 

UPLUS-ABSCVT) /VTTAU 
STANTON-STANCUPLUS , YPLUS, PR(7),PRT(7)) 
TERM-RHOP*ABS (VT) *AREA*STANTON 
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ELSE 
TERM-VISWAL/(PR(N)*DELTA) *AREA 
ENDIF 
IFCLN.EQ.44) THEN 
SUCI,J)-TERM*T(CI,J*1)4SU(CI,J) 
SPCI,J)-TERM-SP(I,J) 
QWCI,J*1)-TERM/AREA* CTCI,J*1)-T(CI,J)) *SPHCI,J41) 
ELSE IF(LN.EQ.46)THEN 
SUCI,J)-QW(CI,J-1) *АКЕА/ЅРН(І, Ј+1)+50(1,Ј) 
T(1,d+1)=QW(1,J+1)/TERM*AREA/SPH(1,J+1)+T(1T,d) 
ENDIF 
ENDIF 
ENDIF 
1 CONTINUE 
RETURN 
END 
C 类 大 大 大 大 大 大 大 大 大 大 类 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 
SUBROUTINE GRID 
INCLUDE 'COM2D.FOR' 
C 类 大 大 大 大 大 大 大 大 大 大 类 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 
C CALCULATE CELL-FACE COORDINATES 
IF(GRNODE)THEN 
XC(2)=X(1) 
YC(2)=Y(1) 
XC(1)=XC(2) 
YC(1)=YC(2) 
DO 1 I=3,INM 
1 ХС(1)=0.5*(Х(1)+Х(1-1)) 
XCCIND-XCIN) 
DO 2 J-3,JNM 
2 YC(J)=0.5*(Y(J)+Y(J-1)) 
YC(JN)=Y(JN) 
ENDIF 
C CALCULATE NODE COORDINATES 
IF(GRCELL)THEN 
X(1)=XC(2) 
Ү(1)=ҮС(2) 
ро 11 I-2,INM 
11 XCI)720.5* (XCCI)*XCCIT1)) 
DO 12 J=2 ,UNM 
12 Y(J)-0.5*(YCCJ) TYCCJT1)) 
YCJND-YCCJN) 
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C 


6 


XCIND-XCCIN) 
ENDIF 


*** CALCULATE INTERPOLATION FACTORS 


DXMI(1)-0.0 

DO 4 I-2,IN 
DXMI(I)=X(I)-X(I-1) 
DYMI(1)=0.0 

DO 5 J=2,JN 
DYMICJ)-YCJ) -YCJ- 1) 
DO 6 J-1,JN 
R(J)=1.0 

RC(J)=1.0 
IF(AXISYMM) THEN 
R(J)=Y (J) 
RC(J)-YC(J) 

ENDIF 

CONTINUE 


C *** CALCULATE CELL VOLUME 


10 


SUMVOL=0.0 

DO 7 J=2,JNM 

DO 7 I=2,1NM 
VOLCI,J)-RCJ)*CXCCIT1)-XCCID))O* 
SUMVOL=SUMVOL+VOL(I,J) 
CONTINUE 
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(ҮССЈ+1) -ҮС(Ј)) 


WRITE(6,*)' DOMAIN VOLUME = ',SUMVOL 
C *** CALCULATE AREAS 


DO 9 I=1,1NM 
((6)1א-(6)1+1א)=(1)קאם‎ 
DXPCIN)-0.0 

DO 10 J=1,JNM 
рүР(Ј)=(ҮС(Ј+1) -ҮС(Ј)) 
DYP(JN)=0.0 

RETURN 

END 


عاد عاد علد عاد عل جا جلت جا جلت عاج جلت عل جلت אא جل جات علد جات علد جا علد عاج جل جا عات جا عات عاج عات عا جات عا جات عا א א אל عا א عاو С‏ 


SUBROUTINE COEF(NN,PRN,PRTN) 
INCLUDE 'COM2D.FOR" 


C kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 


N=NN 
IF(N.EQ.1) GO TO 1000 


C COEFFICIENTS OF TRANSPORT EQUATIONS 


PRINV=1./PRN 
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PRTINV-1.0/PRTN 
DO 1 J-2,JNM 
DO 1 I-2,INM 
SU(I,J)=0.0 
SP(I,J)=0.0 


C *** DIFFUSION COEFFICIENTS AND INTERPOLATED VALUES 


C 


C 


大 大 大 大 


大 大 大 大 


С אא‎ 


LW-NTAGW(CI,J)/10 

LE-NTAGE(I,2)/20 

LS-NTAGS(CI,J)/30 

LN-NTAGN(I,J)/40 

LAMINAR VISCOSITY 

TERMW-CXCI)-XCCI)) /VISCI,J)*CXCCI) -XCI -1)) /VISCI-1,2) 
VISW=DXMI(1)/TERMW*(1-LW)+LW*VIS(I-1,J) 
TERME=(XC(I+1)-X(I))/VIS(I,J)+(X(I+1)-XC(I+1))/VIS(I+1,J) 
VISE=DXMI(I+1)/TERME*(1-LE)+LE*VIS(I+1,J) 
TERMS=(Y(J)-YC(J))/VIS(I,J)+(YC(J)-Y(J-1))/VIS(I,J-1) 
VISS=DYMI(J)/(TERMS+SMALL)*(1-LS)+LS*VIS(I,J-1) 
TERMN=(YC(J+1)-Y(J))/VIS(I,J)+(Y(J+1)-YC(J+1))/VIS(I,J+1) 
VISN=DYMI (J+1)/TERMN*(1-LN)+LN*VIS(I,J+1) 

TURBULENT VISCOSITY 

IF(TURBUL)THEN 
TERMW=(X(I)-XC(I))/VIST(I,J)+(XC(I)-X(I-1))/VIST(I-1,J) 
VISTW=DXMI(I)/TERMW*(1-LW)+LW*VIST(I-1,J) 
TERME=(XC(I+1)-X(I))/VIST(I,J)+(X(I+1)-XC(I+1))/VIST(I+1,J) 
VISTE=DXMI(I+1)/TERME*(1-LE)+LE*VIST(I+1,J) 
TERMS=(Y(J)-YC(J))/VIST(I,J)+(YC(J)-Y(J-1))/VIST(I,J-1) 
VISTS=DYMI(J)/TERMS*(1-LS)+LS*VIST(I,J-1) 
TERMN=(YC(J+1)-Y(J))/VIST(I,J)+(Y(J+1)-YC(J+1))/VIST(I,J+1) 
VISTN=DYMI(J+1)/TERMN*(1-LN)+LN*VIST(I,J+1) 

ENDIF 
CONVECTION COEFFICIENTS 
CW=FINTW(RHO,I,J)*FINTW(U,I,J)*R(J)*DYP(J) 
CE=FINTE(RHO,I,J)*FINTE(U,I,J)*R(J)*DYP(J) 
CS=FINTS(RHO,I,J)*FINTS(V,I,J)*RC(J)*DXP(I) 
CN=FINTN(RHO, І, J)*FINTN(V,I,J)*RC(J+1)*DXP(I) 





C **** DIFFUSION COEFFICIENTS (ALLOWANCE FOR BLOCKED REGIONS ) 


TERM=(1-LW)/DXMI(1)+LW/(X(1)-XC(T)) 
DW=(VISTW*PRTINV+VISW*PRINV)*R(J)*DYP(J)*TERM 
TERM=(1-LE)/DXMI(I+1)+LE/(XC(I+1)-X(1)) 
DE=(VISTE*PRTINV+VISE*PRINV)*R(J)*DYP(J)*TERM 
TERM=(1-LS)/DYMI(J)+LS/(Y¥(J)-YC(J)) 
DS=(VISTS*PRTINV+VISS*PRINV)*RC(J)*DXP(1)*TERM 
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TERM=(1-LN)/DYMI(J+1)+LN/(YC(J+1)-Y(J)) 
DN=(VISTN*PRTINV+VISN*PRINV) *RC(J+1)*DXP(1T)*TERM 
С *** CALCULATE CELL-PECLET NUMBERS 
PECLW=CW/ (DW-SMALL) 
PECLE=CE/(DE+SMALL) 
PECLS=CS/(DS+SMALL) 
PECLN=CN/(DN+SMALL) 
6 *** CONVECTION SCHEMES 
IF(UPWIND) THEN 
AAW=1 .0 
AAE-1.0 
AAS-1.0 
AAN-1.0 
ELSE IF(HYBRID)THEN 
AAW=AMAX1(0.0,1.-0.5*ABS(PECLW) ) 
AAE=AMAX1(0.0,1.-0.5*ABS(PECLE) ) 
AAS=AMAX1(0.0,1.-0.5*ABS(PECLS) ) 
AAN=AMAX1(0.0,1.-0.5*ABS(PECLN) ) 
ELSE ІҒ(РОМЕК ) ТНЕМ 
ДАМ=АМАХ1 (0.0, (1. -0.1*АВЅ(РЕСІМ) ) **5) 
ДАЕ=АМАХ1 (0.0, (1. -0.1*АВЅ(РЕСІЕ) ) **5) 
AAS-AMAX1(0.0,(1.-0. 1*ABS(PECLS) (**5( 
AAN=AMAX1(0.0,(1.-0.1*ABS(PECLN) ) **5) 
ENDIF 
C *** TOTAL COEFFICIENTS 
AW(CI,J)-DW* (AAW+AMAX1(PECLW,0.0)) 
AE(I,J)=DE*(AAE+AMAX1(-PECLE,0.0)) 
ASCI,J)-DS* (AAS+AMAX1(PECLS,0.0)) 
ANCI,J)-DN* CAANTAMAX1C-PECLN,0.0)) 
1 CONTINUE 
GO TO 2000 
C COEFFICIENTS OF PRESSURE CORRECTION EQUATION 
1000 DO 2 J=2,JNM 
DO 2 I=2,1NM 
PP(I,J)=0.0 
SP(I,J)=0.0 
SUCI,J)-0.0 
LW-NTAGWCI,J)/10 
LE-NTAGE(I,J)/20 
LS-NTAGSCI,J)/30 
LN-NTAGNCI,J)/40 
LB-1-NTAG(CI,J) 
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DXW-X CIN) -XCINM) 
DXE=X(2)-X(1) 
DYS=Y (JN) -Y (JNM) 
DYN-Y C2) -YC1) 

C WEST 
SUMW-FINTW(CAPU,I,J) 
AWCI,J)-FINTWCRHO, I, J) * ) RCJ) *DYPCJ) ) **2/SUMW* (1- LW) *LB 
IF(NTAGWCI,20).EQ.17)THEN 
0Ј=Ј 
IFCIPERIOD.EQ.1)JJ—-JN-J-*1 
RHOW-(CDXW*RHO(2 , J)-DXE*RHOCINM,JJ)) /CDXE*DXW) 
SUMW=(DXW*APU(2,J )+DXE*APUCINM, JJ) )/(DXE+DXW) 
AWCI,J)-RHOW*CRCJ) *DYP CJ) ) **2/SUMW*2*LB 
ENDIF 

C EAST 
SUME-FINTE(CAPU,I,J) 
AECI,J)-FINTE(CRHO, I, J) C RCJ) *DYP(CJ) ) **2/SUME* (1- LE) *LB 
IF(NTAGECI,J).EQ.27)THEN 
0Ј=Ј 
IFCIPERIOD.EQ.1)JJ-JN-J*1 
RHOE-CDXW*RHO(2,JJ)*DXE*RHOCINM, J) )/(DXE+DXW) 
SUME-CDXW*APUC2, JJ )+DXE*APUCINM,J) )/(DXE+DXW) 
AE(1,J)=RHOE*(R(J)*DYP(J) ) **2/SUME*2.0*LB 
ENDIF 

C SOUTH 
SUMS=FINTS(APV,1,J) 
ASCI,J)-FINTSCRHO,I,J)*CRCCJ) *DXPCI)) **2/SUMS*(1- LS) *LB 
IF(NTAGSCI,J).EQ.37)THEN 
II-I 
IF(JPERIOD.EQ.1)TI=IN-I+1 
RHOS=(DYS*RHO(1,2)+DYN*RHO(TI,JNM))/(DYN+DYS) 
SUMS=(DYS*APV(1,2)+DYN*APV(IT,JNM) )/(DYN+DYS) 
ASCI,J)-RHOS*(RCCJ) *DXPCI))**2/SUMS*2.0*LB 
ENDIF 

C NORTH 
SUMN-FINTN(APV,I,J) 
ANCI,J)-FINTNCRHO, I, 9) *CRCCJ1) *DXPCID)**2/SUMN* (1- LN) *LB 
IF(NTAGNCI,O).EQ.47) THEN 
II-I 
IFCJPERIOD.EQ.1)II-IN-I-1 
RHON-(CDYS*RHO(CII,2)*DYN*RHOCI,JNM))/CDYN-4DYS) 
SUMN=(DYS*APV(IT,2)+DYN*APV(T,JNM) )/(DYN+DYS) 
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ANCI,J)-RHON* (RCC(J-1) *DXP CI) ) **2/SUMN*2.0*LB 


ENDIF 
2 CONTINUE 
2000 CONTINUE 
RETURN 
END 


C kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 


SUBROUTINE SORCE(NNV) 
INCLUDE ’COM2D. FOR?’ 

С 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 
DIMENSION PROD(IT,JT) 
N-NNV 
GO TO (10,20,30,40,50,60,70),N 

C *** FOR PRESSURE CORRECTION 

10 DO 11 J=2,JNM 
DO 11 I-2,INM 
CW-FINTWCRHO, I,J)*FINTWCU,I,J)*RCJ)*DYP(CJ) 
CE-FINTECRHO, I,J)*FINTECU, I, J) *RCJ) *DYPCJ) 
CS-FINTSCRHO,I,J)*FINTSCV, I, J) *RCCJ)*DXP(I) 
CN-FINTNCRHO,I,J)*FINTN(CV, I, J) *RCCJF1) *DXPCI) 
SM=CE-CW+CN-CS 
IFC UNSTDY ( SM=SM+( RHO(T,J)-RHOO(T,J))/DELT*VOL(I,J) 
SUCI,J)-SUCI, 0) -SM*C1-NTAGCI,J)) 


11 CONTINUE 
60 TO 1000 
C *** FOR U-VELOCITY 
20 DO 21 J=2,JNM 
DO 21 I-2,INM 


DPDX-CFINTECP,I,J)-FINTWCP,I,0))/DXP(CI) 
SUCI,J)-SUCI,J)-DPDX*VOL(CI,J)*CI-NTAG(CI,J)) 


21 CONTINUE 
60 TO 1000 
C *** FOR V-VELOCITY 
30 DO 31 J-2,JNM 
DO 31 I-2,INM 


DPDY-CFINTNCP,I,J)-FINTSCP,I,0))/DYP(CJ) 
50(01,0)=50(1,0) -DPDY*VOLCI,O)*(1-NTAGCI,J)) 
VISP-VISCI,J)*VIST(I,J) 
IFCAXISYMM)SP(CI,J)-SP(CI,J)4*VISP/R(J)**2*VOL(I,J) 
31 CONTINUE 
GO TO 1000 
C *** FOR W-VELOCITY 
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40 ро 41 J=2 ,UNM 
DO 41 I-2,INM 
SUCI,J)-SUCI,20)40.0 
41 CONTINUE 
GO TO 1000 
C *** FOR KINETIC ENERGY 
50 DO 51 0-2 ,UNM 
DO 51 I-2,INM 


IF(NTAGCI,J).EQ.1)GO TO 51 
LW-NTAGW(I,J) 
LE-NTAGE(I,J) 
LS-NTAGS(I,J) 
LN-NTAGN(I,J) 

C EXCLUDE NEAR-WALL NODE 
TF(LW.EQ.14.0R.LW.EQ.16)G0 TO 51 
IF(LE.EQ.24.0R.LE.EQ.26)GO0 TO 51 
IF(LS.EQ.34.0R.LS.EQ.36)GO0 TO 51 
IF(LN.EQ.44.0R. LN. EQ.46)GO TO 51 

C PRODUCTION TERMS 
DUDX-CFINTECU,I,J)-FINTW(U,I,J))/DXP(CI) 
DVDX-CFINTECV,I,J)-FINTW(V,I,J)) /DXP(CI) 
DUDY-CFINTNCU,I,J)-FINTS(U,I,J)) /DYP(CJ) 

DVDY-CFINTNCV,I,J) -FINTS(V,I,J))/DYP(CJ) 

TERM=2 . 0* ( DUDX**2+DVDY**2 ( +) DUDY+DVDX ) **2 

TF (AXISYMM) TERM=TERM+2*(V(1T,0)/R(d) )**2 

PROD(I,J)=VIST(I,J)*TERM 

ENP=AMAX1(E(1,J),0.0) 

SUCI,J)-PROD(I,J)*VOL(CI,J) +50)1,0( 

SP(I,J)=RHO(1,J)**2*CMU*ENP/(VIST(I,J)+SMALL)*VOL(1,J)+SP(1,J) 
51 CONTINUE 





GO TO 1000 
C *** FOR DISSIPATION 
60 DO 61 J=2 ЈММ 
DO 61 I-2,INM 


IF(NTAG(I,J).EQ.1)GO TO 61 
RHOP-RHO(I,J) 
VOLP-VOLCI,J) 
DPEP-ABSCDCI,J)/CECI,J)*SMALL)) 
SUCI,J)-CDI*RHOP*DPEP*PROD(CI,J)*VOLP +SU(T,J) 
SP(I,J)-CD2*RHOP*DPEP*VOLP-*SP(CI,J) 
61 CONTINUE 
GO TO 1000 
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C *** FOR TEMPERATURE 
70 DO 71 J-2,JNM 
DO 71 I-2,INM 
SU(T,J)=SU(T,J)+0.0 
71 CONTINUE 
1000 CONTINUE 
RETURN 
END 
(RR IK RIK RIK IK IK KK IK AIK IKK IK AIK IKK IK AK 
SUBROUTINE APCOF(NN) 
INCLUDE *COM2D. FOR’ 
(CR I К IK AIK IKK IK AIK IKK IK KIKI KK IK A 
N=NN 
RPINV=1./RP(N) 
DO 1 J=2,JNM 
DO 1 I-2,INM 
SUM=AW(T,J)+AE(1T,J)+AS(1,J)+AN(I,J) 
IF(N.EQ.1)AP1(1,0)=(SUM+SP(1,d))*RPINV 
IF(N.GT. 1)APCI,J)-(SUMESPCI,J))*RPINV 
IF(N.EQ.2)APUC(T,J)=AP(I,J) 
IF(N.EQ.3)APV(I,J)=AP(I,J) 
1 CONTINUE 
RETURN 
END 
C 大 大 大 大 大 大 大 火炎 大火 大 大 大 火炎 大 大 大 大火 大火 大 大 大火 大 类 大 火炎 大 大 大 大 火炎 大 大 大 大 大 
SUBROUTINE PROPS 
INCLUDE 'COM2D.FOR' 
(CR IR ККК IK IKK جل جلا‎ RIK IKK IK AIK IKK IK A 
DO 1 J-1,JN 
DO 1 I-1,IN 
SPHCI,J)-SPHEAT 
RHOCI,J)-DENSIT 
VISCI,J)-VISCOS 
IF (TURBUL) THEN 
VISO=VIST(I,J) 
VIST(I,g)=(CMU*RHO(1,J)*E(1,0)**2/(D( 1,0 )+SMALL)*RP(8) 
1 +(1.-RP(8))*VISO) 
IF(VIST(I,J).LE.0.0)VIST(I,J0)=SMALL 
ENDIF 
1 CONTINUE 
IF(BSOR(8))CALL ADSORB(8) 
RETURN 
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END 


C 类 大 大 大 大 大 大 大 大 大 大 类 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 


SUBROUTI 
INCLUDE 


С 类 大 大 大 大 大 大 大 大 大 大 类 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 


N=NN 

00 1 J=2 
DO 1 I=2 
SUU-SUCI 


TERM-RHOCI,J)*VOL(CI,J)/DELT*(1-NTAG(CI,J)) 


IFCUNSTD 


NE UNSTCNN) 
"COM2D. FOR" 


,UNM 
, INM 
J) 


Y) THEN 


TERM-TERM*RHOO(I,J)/RHO(I,J) 


IF(N.EQ. 
IF(N.EQ. 
IF(N.EQ. 
IF(N.EQ. 
IF(N.EQ. 
IF(N.EQ. 
ELSE IF( 
IF(N.EQ. 
IF(N.EQ. 
IF(N.EQ. 
IF(N.EQ. 
IF(N.EQ. 
IF(N.EQ. 
ENDIF 


50)1,0(= 


1 CONTINUE 
RETURN 
END 


C 类 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 


SUBROUTI 
INCLUDE 


C 类 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 


ро 1 J-1, 
DO 1 =, 
RHOO(I,J) 
POCI,J)-P 
UOCI,J)-U 
VO(I,J)=V 
WO(T,J)=W 
EOCI,J)-E 


2)SUCI,0)-TERM*UO(I,J)-*SUU 
3)SU(CI,J)-TERM*VO(I,J)-*SUU 
4)SUCI,J)-TERM*WO(CI,J)-*SUU 
5)SUCI,J)-TERM*EO(I, ,0 
6)SUCI,J)-TERM*DO(I,J)-*SUU 
7)SUCI,J)-TERM*TO(I,J)-*SUU 
FTRAN) THEN 

2)SU(I,J)=TERM*U(I,J)+SU 
3)SU(I,J)=TERM*V(I,J)+SU 
4)SU(I,J)=TERM*W(I,J)+SU 
5)SU(I,J)=TERM*E(I,J)+SU 
6)SU(I,J)=TERM*D(I,J)+SU 
7)SU(I,J)=TERM*T(I,J)+SU 








€x Cem cc 


TERM +50)1,0( 


NE UPDATE 
"COM2D. FOR" 


JN 

IN 
-RHOCI,J) 
(I,J) 
(I,J) 
(I,J) 
(I,J) 
(I,J) 
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DOCI,J)-D(CI,J) 
TOCI,J)-T(I,J) 

1 CONTINUE 
RETURN 
END 

C kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 
SUBROUTINE INFLUX 

INCLUDE ’COM2D. FOR?’ 

С kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 
00 1 N=1,7 

1 RNORM(N)=0.0 
DO 2 J-2,JNM 
DO 2 I-2,INM 
IF(NTAGW(I,J).EQ.11) THEN 
CW-ABSCRHOCI-1,J0)*UCI-1,J)*DYPCJ) *RCJ)) 
VT-SQRT(UCI-1,0)**2*VCI-1,J])**2*W(I-1,J)**2) 
RNORM(1)=RNORM(1)+CW 
RNORM(2)=RNORM( 2 )+CW*VT 
RNORM(3 )=RNORM( 2) 
RNORM(4)=RNORM(2) 
RNORM(5 )=RNORM(5)+CW*ABS(E(I-1,J)) 
RNORM(6 )=RNORM(6)+CW*ABS(D(I-1,J)) 
RNORM(7 )=RNORM(7 )+CW*ABS(T(I-1,J)) 
ELSE IF(NTAGE(I,J).EQ.21) THEN 
CE=ABS(RHO(I+1,J)*U(I+1,J0)*DYP(J)*R(J)) 
VT-SQRT(UCITl,J0)**2*V(CITl,J)**2*W(I*l1,J)**2) 
RNORM(1)=RNORM(1)+CE 
RNORM(2)=RNORM(2)+CE*VT 
RNORM(3)-RNORM(2) 
RNORM(4)-RNORM(2) 
RNORM(5 )=RNORM(5)+CE*ABS(E(I+1,J)) 
RNORM(6 )=RNORM(6)+CE*ABS(D(I+1,J)) 
RNORM(7)=RNORM(7 )+CE*ABS(T(I+1,J)) 
ELSE IF(NTAGS(I,J).EQ.31) THEN 
CS-ABSCRHOCI,J-1)*VCI,J-1)*DXPCI)*RC(J)) 
VT-SQRT(UCI,J-1)**2-VCI,J-1) **242W(1,J- 1) **2) 
RNORM(1)=RNORM(1)+CS 
RNORM(2)=RNORM(2)+CS*VT 
RNORM(3 )=RNORM(2) 
RNORM(4 )=RNORM( 2) 
RNORM(5 )=RNORM(5)+CS*ABS(E(I,d-1)) 
RNORM( 6 )=RNORM(6)+CS*ABS(D(I,J-1)) 
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RNORM(7)-RNORM(7) *CS*ABS(TCI,J-1)) 

ELSE IF(NTAGN(I,J).EQ.41) THEN 
CN=ABS(RHO(I,J+1)*V(1,d+1)*DXP(1)*RC(J+1) ) 
VT=SQRT (UCT, Jt+1)**2+V (1, d+1)**2+W(1,J+1)**2) 
RNORM(1)=RNORM(1)+CN 
RNORM(2)=RNORM(2)+CN*VT 

RNORM(3)=RNORM(2) 

RNORM(4)=RNORM(2) 

RNORM(5 )=RNORM(5)+CN*ABS(E(I,J+1)) 

RNORM(6 )=RNORM(6)+CN*ABS(D(I,J+1)) 
RNORM(7)-RNORM(7) *CN*ABS(TCI,J*1)) 





ENDIF 
2 CONTINUE 
DO 3 N-1,7 
TERM-ABS ( RNORM(N) ) 
3 IF(TERM.LT.10.*SMALL)RNORM(N)-1.0 


WRITEC6,*)' RNORM VALUES’ 

WRITEC6,*) CRNORMCN) 1=א,‎ ,7( 

RETURN 

END 

С ххх кк RIK جل جل جلا‎ IK جل جل جلا‎ IK RIK AIK IK AIK IKK 

SUBROUTINE MASBAL 

INCLUDE ’COM2D.FOR’ 
С ххх кк IK جل جلا‎ RIK جل جل جلا‎ IK RIK AIK IK AIK IKK 

SUMFW-0.0 
SUMFE-0.0 
SUMFS-0.0 
SUMFN-0.0 
DO 2 J-2,JNM 
DO 2 I-2,INM 
IF(NTAGWCI,J).EQ.13.0R. NTAGW(I,J).EQ.15) THEN 
CW-RHO(CI-1,2)*UCI-1,J) *DYPCJ) *RCJ) 
SUMFW=SUMFW+CW 
ELSE IF(NTAGECI,J).EQ.23.0R.NTAGECI,J).EQ.25) THEN 
CE-RHO(CI-1,2)*UCI-1,J)*DYPCJ)*RCJ) 
SUMFE=SUMFE+CE 
ELSE IF(NTAGSCI,J).EQ.33.0R.NTAGSCI,J).EQ.35) THEN 
CS-RHO(CI,J-1)*VCI,J- 1) *DXPCID)*RCCJ) 
SUMFS=SUMFS+CS 
ELSE IF(NTAGNCI,J).EQ.43.0R. NTAGNCI,J).EQ.45) THEN 
CN=RHO(T,J+1)*V(1,d+1)*DXP(1)*RC(J+1) 
SUMFN=SUMFN+CN 
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ENDIF 
2 CONTINUE 
SUMF-ABS ) SUMFW)-FABS ( SUMFE ) +АВЅ (SUMFS)-ABS CSUMFN) 
FACTOR=RNORM(1)/(SUMF+SMALL ) 
МКІТЕ(6, 8787 ) FACTOR 
WRITE(*,8787)FACTOR 
C APPLY MASS CONSERVATION AT EXIT 
IF(CONMAS)THEN 
DO 3 J=2,JNM 
DO 3 I=2,1NM 
IF(NTAGW(I,J).EQ.13.0R.NTAGW(I,J).EQ.15) THEN 
UCI-1,J)-UCI-1,0) *FACTOR 
))1-1,0(=/)1-1,0(* 
WCI-1,J9)-WCI-1,J)*FACTOR 
ELSE IF(NTAGE(I,J).EQ.23.0R.NTAGE(CI,J).EQ.25) THEN 
U(I+1,J)=U(I+1,J)*FACTOR 
V(I+1,J)=V(I+1,J)*FACTOR 
W(I+1,J)=W(I+1,J)*FACTOR 
ELSE IF(NTAGS(I,J).EQ.33.0R.NTAGS(I,J).EQ.35) THEN 
V(I,J-1)=V(I,J-1)*FACTOR 
U(I,J-1)=U(I,J-1)*FACTOR 
W(I,J-1)=W(I,J-1)*FACTOR 
ELSE IF(NTAGN(I,J).EQ.43.0R.NTAGN(I,J).EQ.45) THEN 
V(I,J+1)=V(I,J+1)*FACTOR 
U(I,J+1)=U(I,J+1)*FACTOR 
W(I,J+1)=W(I,J+1)*FACTOR 
ENDIF 
3 CONTINUE 
ENDIF 
8787 FORMAT(50X,F10.4,F10.4) 
RETURN 
END 
С 大 大 大 大 大 大 大 类 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 类 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 
SUBROUTINE PVCOR 
INCLUDE 'COM2D.FOR" 
C 大 大大 大 大 类 大 类 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 类 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 
C **** APPLY SMOOTHING PRESSURE CORRECTION 
DO 4 J—-2,JNM 
DO 4 I=2,1NM 
PMX=(DXMI(1)*P(I+1,J)+DXMI(I+1)*P(1-1,J0))/(DXMI(1T)+DXMI(I+1)) 
PMY=(DYMI(J)*P(1,d+1)+DYMI(J+1)*P(1,J-1))/(DYMI(J)+DYMI(J+1) ) 
PSMCI,J)-CPCI,J) -CPMX*PMY)/2.0) *GAMMA 
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PP(IT,J)=(PP(1,J)-PSM(I,d))*(1-NTAG(I,J)) 
4 CONTINUE 
С *** APPLY MASS-CONSERVING PRESSURE CORRECTION 
PREF=0 
RSP-0.0 
DO 6 J-2,JNM 
DO 6 I-2,INM 
P(I,J)=P(1,J)+(PP(1,J)-PREF)*RP(9)*(1-NTAG(I,J)) 
TF(ABS(PP(1,J)).GT.RSP)RSP=ABS(PP(I,J)) 
6 CONTINUE 
FDIF(1)=RSP 
CALL BOUNDP 
C *** CORRECT VELOCITIES 
RSU-0.0 
RSV-0.0 
DO 1 J-2,JNM 
00 1 I-2,INM 
PSMW-FINTW(CPP,I,J) 
PSME-FINTE(CPP,I,J) 
PSMS-FINTS(CPP,I,J) 
PSMN-FINTN(CPP,I,J) 
C CORRECT U-VELOCITY 
IFCSLVEC2) ) THEN 
DPDX=( PSME-PSMW)/DXP(1) 
UDASH--DPDX*VOL(I,J)/APUCI,J)*(C1-NTAG(CI,J)) 
IFC(ABSCUDASH) . GT. RSU) RSU-ABS (UDASH) 
UCI,J)-UCI,J)*UDASH 
ENDIF 
C CORRECT V-VELOCITY 
IFCSLVEC3) ) THEN 
DPDY-(PSMN-PSMS)/DYP(CJ) 
VDASH--DPDY*VOL(CI,J)/APV(CI,J)*(C1-NTAG(CI,J)) 
IF(ABSCVDASH) . GT. RSVORSV-ABS(VDASH) 
VCI,J)-VCI, 9) *VDASH 
ENDIF 
1 CONTINUE 
FDIF(2)=RSU 
FDIF(3)=RSV 
C CHECK MASS RESIDUAL 
SUM-0.0 
DO 9 J-2,JNM 
DO 9 I-2,INM 
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TERM=AE(T,J)*PP(I+1,J)+AW(I,J)*PP(I-1,J) 

1 +AN(I,J)*PP(I,J+1)+AS(I,J)*PP(I,J-1)-AP1(I,J)*PP(I,J) 
IF(TERM.GT.GREAT*0.01)TERM=0.0 
SUM=SUM+TERM**2*(1-NTAG(I,J)) 

9 CONTINUE 
RSDU(1)=SQRT(SUM)/RNORM(1) 
RETURN 
END 

С kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 
SUBROUTINE BOUNDP 
INCLUDE ’COM2D. FOR?’ 

С 大 大 大 大 大 大 大 类 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 类 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 
DO 2 J=2,JNM 
DO 2 I=2,INM 
IF (NTAG(I,J).EQ.1) GO TO 2 
LW-NTAGWCI,J)/10 
LE-NTAGE(I,J)/20 
LS-NTAGSCI,J)/30 
LN-NTAGNCI,J)/40 
DXW-X (IN) -XCINM) 
DXE=X(2)-X(1) 
DYS=Y (JN) -Y (JNM) 
DYN=Y(2)-Y(1) 

C EAST-WEST PERIODICITY 
IF(NTAGW(I,J).EQ.17.0R. NTAGE(I,J).EQ.27) THEN 
JJ-J 
IF(IPERIOD.EQ.1)JJ=JN-J+1 
ENDIF 
IF(LW.EQ.1) THEN 
RATIO=(X(I)-XC(I))/DXMI(I+1) 
P(I-1,J)=P(I,J)-RATIO*(P(I+1,J)-P(I,J)) 
PP(I-1,J)=PP(I,J)-RATIO*(PP(I+1,J)-PP(I,J)) 
IF(NTAGW(I,J).EQ.17)THEN 
PMEAN=(DXW*P(2,J)+DXE*P(INM,JJ))/(DXE+DXW) 
P(1,J)=PMEAN+DP1/2.0 
PPMEAN=(DXW*PP(2,J)+DXE*PP(INM,JJ))/(DXE+DXW) 
PP(1,J)=PPMEAN 
ENDIF 
ENDIF 
IF(LE.EQ.1) THEN 
RATIO=(XC(I+1)-X(I))/DXMI(I) 
P(I+1,J)=P(I,J)+RATIO*(P(I,J)-P(I-1,J)) 
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PP(I+1,J)=PP(1,J)+RATIO*(PP(I,J)-PP(I-1,J)) 
IF(NTAGE(I,J).EQ.27)THEN 
PMEAN=(DXW*P(2,JJ)+DXE*P(INM,J) )/(DXE+DXW) 
PCIN,J)-PMEAN-DP1/2.0 
PPMEAN=( DXW*PP(2,Jd)+DXE*PP(INM,J) )/(DXE+DXW) 
ENDIF 
ENDIF 

C NORTH-SOUTH PERIODICITY 
IF(NTAGSCI,J).EQ.37.0R.NTAGNCI,J).EQ.47) THEN 
II-I 
IF(JPERIOD.EQ.1)TI=IN-I+1 
ENDIF 
IF(LS.EQ.1) THEN 
RATIO-(YCJ) -YCCJ) )/DYMI (J+1) 
P(I,J-1)=P(1,J)-RATIO*(P(I,J+1)-P(1,J)) 
PP(I,J-1)=PP(1,J)-RATIO*(PP(I,J+1)-PP(I,J)) 
IF(NTAGSCI,J).EQ.37)THEN 
P(I,1)=(DYS*P(1,2)+DYN*P(II,JNM) )/(DYN+DYS) 
P(I,1)=P(1,1)+DP2/2.0 
PP(1,1)=(DYS*PP(1,2)+DYN*PP(II,JNM) )/(DYN+DYS) 
ENDIF 
ENDIF 
IF(LN.EQ.1) THEN 
RATIO-CYCCO1)-Y(CJ))/DYMICJ) 
PCI,J41)-PCI,J)*RATIO* CP(I,0) -PCI,J-1)) 
PPCI,J-1)-PPCI,J)*RATIO*(PPCI,J)-PPCI,J-1)) 
IF(NTAGNCI,J).EQ.47)THEN 
P(T,JN)=(DYS*P(II,2)+DYN*P(I,JNM) )/(DYN+DYS) 
PCI,JN)-P(CI,1)-DP2/2.0 
PP(I,JN)=(DYS*PP(II,2)+DYN*PP(I,JNM) )/(DYN+DYS) 
ENDIF 
ENDIF 

2 CONTINUE 
IF(BSOR(9))CALL ADSORB(9) 
RETURN 
END 

C 类 大 大 大 大 大 大 大 大 大 大 类 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 
SUBROUTINE INDATA 
INCLUDE “COM2D.FOR” 


C 类 大 大 大 大 大 大 大 大 大 大 类 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 


WRITE(6,*)'*** THIS IS COLLOCATED GRID PROGRAM **** 


WRITE(6 ,大 ) "大大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 “ 


358 


WRITE(6,*)'GRID INFORMATION’ 
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WRITE(6,*)' IN = ',א1,'‎ JN = ',JN 

WRITE(6,*)' X - COORDINATES * 

CALL PRID(X,1,IN) 

WRITE(6,*)' Y - COORDINATES * 

CALL PRID(Y,1,JN) 

WRITE(6,*)' XC - COORDINATES * 

CALL PRID(XC,1,IN) 

WRITE(6,*)' YC - COORDINATES * 

CALL PRID(YC,1,JN) 

WRITE(6,*)' DXMI?’ 

CALL PRID(DXMI,1,IN) 

WRITE(6,*)' DYMI?’ 

CALL PRID(DYMI,1,JN) 

WRITE(6,*)' PRESSURE REFERENCE POINT IPREF = ',IPREF, 
1 * JPREF = ',JPREF 

WRITE(6,*)' RELAXATION PARAMETERS ARE’ 
WRITE(6,*)' RP(1) = ’,RP(1),’ RP(2) = ’,RP(2),’ RP(3) = ’ ,RP(3), 
1 ” RP(4) = ',(4)קה,'‎ RP(5) = ’,RP(5), ' RP(6) = *,RP(6), 
1 ” RP(7) = ',(7)קת,'‎ RP(8) = ’,RP(8), ' RP(9) = ",RPC9) 

WRITEC6,*)'FLUID VISCOSITY = ',VISCOS 

WRITEC6,*)'FLUID DENSITY = ',DENSIT 

WRITE(C6,*)'FLUID PRANDTL NUMBERS ARE’ 
WRITE(C6,*)' PR(1) = ’,PR(1),’ PR(2) = ’,PR(2),’ PR(3) = ’ ,PR(3), 
1 * PR(4) = ,,РК(4),, PR(OS) = ’,PR(5),’ PR(6) = ’,PR(6), 
1 ” PR(7) = *,PR(7) 

IF(TURBUL) THEN 

WRITE(6,*)’ TURBULENT PRANDTL NUMBERS ARE’ 

WRITE(C6,*) 
1 ' PRT(1) = ’,PRT(1),’ PRT(2) = ',PRT(2),' PRT(3) = ’,PRT(3), 
1 ' PRT(4) = ',PRT(4)," PRT(5) = ',PRT(5), ' PRT(6) = ',PRT(6), 
l ' PRT(7) = ',PRT(7) 

ENDIF 


IF(STEADY )WRITE(6,*)* STEADY FLOW CALCULATIONS’ 
IF(UNSTDY)WRITE(6,*)' UNSTEADY FLOW CALCULATIONS’ 
IF(FTRAN)WRITE(6,*)' FALSE TRANSIENT DELT = ’,DELT 
IF(CONMAS)WRITE(6,*)' MASS BALANCE IS IMPOSED’ 
IFC(UPWIND)WRITE(6,*)* CONVECTION SCHEME = UPWIND ” 
IF(HYBRID)WRITE(6,*)' CONVECTION SCHEME = HYBRID ' 
IF(POWER)WRITE(6,*)’ CONVECTION SCHEME = POWER LAW’ 
WRITE(6,*)' THE FOLLOWING EQUATIONS ARE SOLVED’ 
IF(SLVECI))WRITE(6,*)' PRESSURE CORRECTION EQUN.’ 
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IF(SLVE(2) )WRITE(6,*)’ U-VELOCITY * 

IF(SLVE(3) )WRITE(6,*)’ V-VELOCITY * 

IF(SLVE(4) )WRITE(6,*)’ W-VELOCITY * 
IFC(SLVECB))WRITE(C6,*)' T. KINETIC ENERGY’ 

TF(SLVE(6) )WRITE(6,*)’ DISSIPATION ' 

IF(SLVE(7) )WRITE(6,*)’ TEMPERATURE’ 

WRITE (6, ¥) RRR RRR RR RA k אכ ا جل جل‎ RRR RRR IIIA k k k RRR RRR IIA? 
RETURN 

END 


6 类 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 


SUBROUTINE SOLVE(F,RPP,RSUM) 
INCLUDE ’COM2D. FOR’ 


C 类 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 


DIMENSION F(IT,JT) 
DIMENSION SA(MXGR),SB(MXGR),SS(MXGR),PSI(MXGR) 


С *** CALCULATION OF RESIDUALS 


10 


RS=0.0 

DO 10 J=2,JNM 

DO 10 I=2,INM 

TERM=AW(1,J)*F(I-1,0)+AE(1,0)*F(I+1,J) 
*ASCI,J)*FCI,J- 1) FANCI,J) *FCI, J41) 

TERM-TERM-SUCI,J)-F(CI,J)*AP(CI,J)*RPP 

FACTOR-1.0 

IF(SPCI,J).GT. GREAT*1.0E- 10) FACTOR-0.0 

TERM=TERM*FACTOR 

RS=RS+TERM*TERM 

RSUM=SQRT (RS) 


C*** J-DIRECTION SWEEP 


52 


DO 51 J=2,J0NM 

DO 52 I-2,INM 

SOR-SU(CI,J) 

DEN-1.0/(APCI,J)*SMALL) 
SOR=SOR+(1.-RPP)/(DEN+SMALL)*F(I,J) 
SACI)-AECI,J)*DEN 

SBCI)-AWCI,J)*DEN 
SSCI)9-(ASCI,O)*FCI,J-1)FANCI,J) *FCI, J1) SOR) *DEN 
CONTINUE 

PSII-F(1,J) 

PSIN-FCIN,J) 

CALL TDMA(C2, INM,PSIl,PSIN,SA,SB,SS,PSI) 
DO 53 I-2,INM 

LP-NTAGCI,J) 
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53 F(I,J)-PSICI)*(1-LP)*LP*F(I,J) 
51 CONTINUE 
C*** [-DIRECTION SWEEP 

DO 54 I-2,INM 

DO 55 J-2,JNM 

SOR-SU(I,J) 


DEN-1.0/(APCI,J)*SMALL) 
SOR-SOR*(1.-RPP)/DEN*F(I,J) 
SACJ)-ANCI,J)*DEN 
SB(J)-ASCI,J)*DEN 
SS(J)-CAWCI,J)*FCI-1,J0) FAECI, J) *FCIT1,0) SOR) *DEN 
55 CONTINUE 
PSII-F(I,1) 
PSIN-F(I,JN) 
CALL TDMA(2,JUNM,PSI1,PSIN,SA,SB,SS,PSI) 
DO 56 J-2,JNM 
LP-NTAG(CI,J) 
56 F(I,J)-PSICJ)*(1-LP)*LP*F(CI,J) 
54 CONTINUE 
RETURN 
END 
С kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 
SUBROUTINE SOLP 
INCLUDE ’COM2D. FOR?’ 
С 大 大 大 大 大 类 大 类 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 类 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 
DIMENSION SA(MXGR),SB(MXGR),SS(MXGR),PSI(MXGR) 
DO 100 L=1,NSWEEP(1) 
C*** J-DIRECTION SWEEP 
DO 51 J=2,JNM 
DO 52 I-2,INM 
SOR-SU(I,J) 
DEN-1.0/(APICI,J)TSMALL) 
SOR-SOR*(1.-RPC1))/DEN*PP(I,J) 
SACI)-AECI,J)*DEN 
SBCI)-AWCI,J)*DEN 
SS(I)=(AS(I,J)*PP(I,J-1)+AN(I,J)*PP(I,J+1)+SOR)*DEN 
52 CONTINUE 
PST1=PP(1,J) 
PSIN-PPCIN,J) 
CALL TDMA(C2,INM,PSII,PSIN,SA,SB,SS,PSI) 
DO 53 I-2,INM 
LP-NTAG(CI,J) 
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53 PP(I,J)=PSI(I)*(1-LP)+LP*PP(I,J) 
51 CONTINUE 
C*** [-DIRECTION SWEEP 

00 54 I-2,INM 

DO 55 J-2,JNM 

SOR-SUCI,J) 


DEN-1.0/(AP1CI,J)4SMALL) 

SOR-SOR*(1.-RP(1))/DEN*PP(I,J) 

SACJ)-ANCI,J)*DEN 

SB(J)-ASCI,J)*DEN 

SSCU)-CAWCI,J)*PPCI-1,J) *AECI, J) * 02) 1+1 , +501 *DEN 
55 CONTINUE 

РЅІ1=РР(І,1) 

PSIN-PPCI,JN) 

CALL TDMA(2,JNM,PSI1,PSIN,SA,SB,SS,PSI) 


DO 56 J-2,JNM 

LP-NTAGCI,J) 
56 PP(I,J)=PSI(J)*(1-LP)+LP*PP(I,J) 
54 CONTINUE 

IF(NPERIOD.EQ.1)CALL BOUNDP 
100 CONTINUE 

RETURN 

END 


С 类 大 大 大 大 大 大 大 大 大 大 类 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 


SUBROUTINE EQN 
INCLUDE 'COM2D.FOR' 

C 类 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 
MWRITE=NITER+MFREQ 
IF(NITER.EQ.0)NITER=1 
NADD=MXIT 

5555 NBEGIN=NITER 
MXIT=NITER+NADD 
DO 2000 NTIME=1,MXSTEP 
TTIME=STIME+NTIME*DELT 
DO 1000 NITER=NBEGIN,MXIT 

С **** U-VELOCITY 
IF(SLVEC2))THEN 
CALL COEF(2,PR(2) , PRT(C2)) 

CALL SORCE(2) 
IF(UNSTDY.OR.FTRAN)CALL UNST(2) 
CALL BOUND(2) 

IF(BSOR(2))CALL ADSORB(2) 
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CALL APCOF(2) 
CALL SOLVE(U,RP(2),RSU) 
RSDU(2)-RSU/ CRNORM(2)--SMALL) 
CALL BOUND(2) 
ENDIF 

C **** V-VELOCITY 
IF(SLVEC3))THEN 
CALL COEF(3,PR(3),PRT(3)) 
CALL SORCE(3) 
IFC(UNSTDY.OR.FTRAN)CALL UNST(3) 
CALL BOUND(3) 
IF(BSOR(3))CALL ADSORB(3) 
CALL APCOF(3) 
CALL SOLVE(V,RP(3),RSU) 
RSDU(3)-RSU/ C RNORM(3) SMALL ) 
CALL BOUND(3) 
ENDIF 

C **** PRESSURE CORRECION 
IF(SLVECI))THEN 
CALL MASBAL 
CALL COEF(1,PR(1),PRT(1)) 
CALL SORCE(1) 
IF(BSOR(1))CALL ADSORB(1) 
CALL APCOF(1) 
CALL SOLP 
CALL PVCOR 
ENDIF 

C **** W-VELOCITY 
IF(SLVECA4) ) THEN 
CALL COEF(4,PR(4),PRT(4) ) 
CALL SORCE(4) 
IFC(UNSTDY.OR.FTRAN)CALL UNST(4) 
CALL BOUND(4) 
IF(BSOR(4))CALL ADSORB(4) 
CALL APCOF(4) 
CALL SOLVE(W,RP(4),RSU) 
RSDU(4)=RSU/ (RNORM(4)+SMALL) 
CALL BOUND(4) 
ENDIF 

C **** KINETIC ENERGY 
IFCTURBUL)THEN 
IF(SLVE(5))THEN 
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CALL COEF(5,PR(5),PRT(5)) 
CALL SORCE(5) 
IF(UNSTDY.OR.FTRAN)CALL UNST(5) 
CALL BOUND(5) 
IF(BSOR(5))CALL ADSORB(5) 
CALL APCOF(5) 
CALL SOLVE(E,RP(5),RSU) 
RSDU(5)-RSU/ CRNORM(5)--SMALL) 
CALL BOUND(5) 

C **** DISSIPATION 
CALL COEF(6,PR(6),PRT(6)) 
CALL SORCE(6) 
IF(UNSTDY.OR.FTRAN)CALL UNST(6) 
CALL BOUND(6) 
IF(BSOR(6))CALL ADSORB(6) 
CALL APCOF(6) 
CALL SOLVE(D,RP(6),RSU) 
RSDU(C6)-RSU/ CRNORM(6)--SMALL) 
CALL BOUND(6) 
ENDIF 
ENDIF 

C **** TEMPERATURE 
IFCSLVE(C7) ) THEN 
CALL COEF(7,PR(7),PRT(7)) 
CALL SORCE(7) 
IF(UNSTDY.OR.FTRAN)CALL UNST(7) 
CALL BOUND(7) 
IF(BSOR(7))CALL ADSORB(7) 
CALL APCOF(7) 
CALL SOLVE(T,RP(7),RSU) 
RSDU(C7)-RSU/ CRNORM(7 ) SMALL) 
CALL BOUND(7) 
ENDIF 

C **** SPECIES AND ENTHALPY 
CALL OMEGA 

C **** PROPERTIES 
CALL PROPS 

C **** CHECK MAX RESIDUALS 
RSTOP=AMAX1(RSDU(1), RSDU(2) , RSDU(3) , RSDU(4) , RSDU(5) 

1 »RSDU(6) , RSDUC7)) 
C STORE RESIDUALS FOR PLOTTING 
C RESIUCNITER)-RSDU(2) 
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C RESIV(NITER)-RSDU(3) 

C RESIM(NITER)-RSDU(1) 
IF(STEADY)WRITE(C6,1919)NITER, (RSDUCND , N71,7) 
ІҒ(ЅТЕАРҮ ) МКІТЕ(6, 1919) МІТЕК, CFDIF(ND , N71,4) 
IF(STEADY)WRITEC*,1919)NITER, CFDIF(ND , №1, 4) 
IF(STEADY)WRITEC*,1919)NITER, (RSDUCND , N71,7) 

1919 FORMAT(1X,16,7(E10.3)) 

IF(RSTOP.LT.CC) GO TO 1100 

C INTERMEDIATE WRITE-OUT 
IF(MWRITE.EQ.NITER)THEN 
MWRITE=NITER+MFREQ 


CALL OPT 

WRITEC*,*)'OUTPUT IS WRITTEN AT NITER =  ',NITER 
WRITE(6,x) OUTPUT IS WRITTEN AT NITER = ’,NITER 
ENDIF 


1000 CONTINUE 
1100 IFC(STEADY ) RETURN 
CALL UPDATE 
WRITEC6,*)'NTIME = ',NTIME,' TTIME = ',TTIME 
WRITEC6,*) RSDUCND 1=א,‎ ,7( 
WRITEC6,*) CFDIFCND,N-71,7) 
2000 CONTINUE 
RETURN 
END 

(CRI שר جل جلا‎ К IK IK KK جل جل‎ IK К جل جل‎ IK AIK IKK IK A 
SUBROUTINE TDMACIB,IL,Y1,YN,BA,BB,BS, YY) 
INCLUDE 'COM2D.FOR' 

(CR IR К IK IK КККК ККК جل جلا‎ IK AIK IKK IK A 
DIMENSION BA(CMXGR) , BB(MXGR) , BS(MXGR) ,YY CMXGR) , ACMXGR) , B(MXGR) 
ACIB)-BA(IB) 

BC IB)=BB(IB)*Y1+BS( IB) 
DO 1 1=18+1 + 
TERM-1.0-BB(I)*A(CI-1) 
ACI)-BACI)/CTERM +SMALL) 

1 B(T)=(BB(1I)*B(1-1)+BS(1))/(TERM+SMALL) 
YY(IL)=B(IL)+A(IL)*YN 
DO 2 I=IL-1,1B,-1 

2 YY(I)=A(I)*YY(I+1)+B(I) 

RETURN 
END 
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C 类 大 大 大 大 大 大 类 大 大 大 类 大 大 大 类 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 


FUNCTION STAN(UPLUS,YPLUS,PR,PRT) 
С ххх кк КК جل جل جلا لد ا‎ IK جل جلا جلا‎ IKK جل جلا‎ AIK IK AIK IKK 
C LAMINAR SUB LAYER 
IF(YPLUS.LT.11.6) THEN 
PF=(PR/PRT-1)*UPLUS 
ELSE 
C TURBULENT LAYER 
PF-9.24*(CPR/PRT)**0.75 -1.0)*(14+0.28*EXP(-0.007*PR/PRT) ) 
ENDIF 
STAN=1./(PRT*UPLUS*( PF+UPLUS ) ) 
RETURN 
END 
(CIR кк IK جل جل جلا‎ IK KK IKK IK AK IK AIK IKK 
FUNCTION FINTWCF,II,JJ) 
INCLUDE 'COM2D.FOR* 
С ххх кк К جل جلا لد د‎ RIK جل جلا جلا‎ IK RIK AIK IK AIK IKK 
DIMENSION F(IT,JT) 
I-II 
JU=JJ 
LW=NTAGW(I,J)/10 
TW=((X(I)-XC(I))*F(I-1,J)+(XC(I)-X(I-1))*F(I,J))/DXMI(I) 
FINTW=TW*(1-LW)+LW*F(I-1,J) 
RETURN 
END 
С KARAKK кк IK جل جل جلا‎ IK KKK K جلا جلا‎ AIK IK AIK IKK 
FUNCTION FINTE(F,II,JJ) 
INCLUDE 'COM2D.FOR* 
С ххх кк جل جل‎ IK جل جل جلا‎ IK جل جلا‎ KIKI IK AIK IK AIK IKK 
DIMENSION F(IT,JT) 
I-II 
Ј=ЈЈ 
LE-NTAGE(I,J)/20 
(01)1+1אם/((1+1,0)ז*((1)א-(6)1+1א)+(1,0)-*((6)1+1א-(1+1)א))=םך‎ 
FINTE=TE*(1-LE)+LE*F(I+1,J) 
RETURN 
END 
С Оххх ККК جل جل جل אב אב جل ل جل جل‎ САСА א‎ 
FUNCTION FINTSCF,II,JJ) 
INCLUDE 'COM2D.FOR* 
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C kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 


DIMENSION F(IT,JT) 
I-II 
J-JJ 
LS-NTAGS(CI,J)/30 
TS2CCYCJ) - YCCJ)) *FCI,J-1) £CYCCJ) -YCJ 1)) *FC I, )) / DYMI(J) 
FINTS=TS*(1-LS)+LS*F(1,d-1) 
RETURN 
END 
(RR IR IK IK IK AIK IKK IK RIK IKK IK AIK IKK IK A 
FUNCTION FINTN(CF,II,JJ) 
INCLUDE 'COM2D.FOR' 

(CI kk Kok Kok Kok Kok Kok Kok جل جلا جد جل‎ koe Kok ل جل جلا‎ КККК ل جلا‎ КК 
DIMENSION FCIT,JT) 
I-II 
J-JJ 
LN-NTAGN(CI,J)/40 
TN=((Y(J+1)-YC(J+1))*F(I,J)+(YC(J+1)-Y(J))*F(I,J+1))/DYMI(J+1) 
FINTN=TN*(1-LN)+LN*F(I,J+1) 
RETURN 
END 

C KAKARAKA К IK جل جل جلا‎ IKK جل جل‎ RIK IKK IK AIK IKK IK A 
SUBROUTINE OPT 
INCLUDE 'COM2D.FOR' 
(CRI שר جلا‎ К IK IK IKK جل جل‎ KIKI جل جلا‎ IK IK IKK IK A 
OPEN(12,FILE=’NSOUT’ , FORM=’ UNFORMATTED’ ) 
WRITEC12)NITER,TTIME 
DO 1 J=1,JN 
DO 1 I-1,IN 
WRITECI2)PCI,20),UCI, 2), VCI, ) ,WCI,), ECI,0), DCI,J), TCI,2) 
WRITECI2)VISCI,J),VISTCI,J), RHO(I,O),SPHCI,J) 
WRITEC12)QWCI,J) , AMWCI , ل‎ ( , TAUWCI,J),0C I, J) , HHCI,J) 
1 CONTINUE 
CLOSE(12) 
RETURN 
END 

(CR I К IK IK IKK IK IK IKK IK RIK IKK IK A 
SUBROUTINE IPT 
INCLUDE ’*COM2D. FOR’ 

(CR RK RIK RIK IK RIK IKK IKK IK جل جل جلا‎ IK AIK IKK IK A 
OPEN(13,FILE=’NSIN’ , FORM=’ UNFORMATTED’ ) 
READ(13)NITER, STIME 
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DO 1 J=1,JN 
DO 1 I-1,IN 
READCI3)PCI,J),UCI, 0) , VI, ), WCI,) , ECI,0), DCI,J), TCI 0) 
READ(C13)VISCI,J), VISTCI,0) , КНО(І,Ј),ЅРН(І,Ј) 
READC13)QWCI,J), AMWCI,OJ), TAUWC I, 0), 0 (1,0) HH (I, J) 
1 CONTINUE 
CLOSE(13) 
RETURN 
END 
(CIR IK IK جل جل جلا‎ IK جل جل جلا‎ IK جل جل جلا‎ IK КК AIK IK AIK IKK 
SUBROUTINE PRID(F,IB,IL) 
INCLUDE ’COM2D.FOR’ 
(CIR RIK IR جل جل جلا‎ AIK جل جل جلا‎ IK KK IKK IK AIK IK AIK IKK 
DIMENSION F(MXGR) 
11-8 
1Е=11+10 
IFCIE.GT.INDIE-IL 
100 CONTINUE 
WRITE(6,500) (F(I),I=11,1E) 
WRITE(6,600) (I,I=I1,1E) 
IFCIE.LT.IL) THEN 
T1=IE+1 
1Е=11+10 
IFCIE.GT.IL)IE-IL 
GO TO 100 
ENDIF 
500 FORMAT(11F10.4) 
600 FORMAT(1X,6H ,13,11110) 
RETURN 
END 
(CIR кк IK جل جل جلا‎ IK جل جلا جلا‎ IK RIK AK IK AIK ARK 
SUBROUTINE PRINTK(F,IB,IL,JB,JL,HEADER,JSTEP) 
INCLUDE ’COM2D.FOR’ 
(CK IK IK جل جل جلا‎ IK IK RIK IK IKK IK AIK IK AIK IKK 
CHARACTER*10 HEADER 
DIMENSION F(IT,JT) 


WRITE ( 6 К 大 ) ?大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 


WRITE(6,*)' DISTRIBUTION OF F(I,J) ',HEADER 
WRITE ( 6 8 * ) ?大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 大 
11=1В 

IE=11+11 

IF(IE.GT.IL) IE-IL 
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500 
600 


CONTINUE 

DO 1 J-JL,JB, JSTEP 
WRITEC6,500)J, CFCI, 0), ICI, IE) 
WRITE(6,600) (І, 1=11,1Е) 
IF(IE.LT.IL) THEN 

11 

ІЕ=11+11 

IF(IE.GT.IL) IE-IL 

60 TO 100 

ENDIF 

FORMAT(I3,12E10.3) 

FORMAT (1X,6H ,13,11110) 
RETURN 

END 
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